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INTRODUCTION 
Using games to learn BASIC 


Commercially written games for the Apple computer are now being written in 
machine language with elaborate copy protection schemes. Techniques to 
increase speed and foil pirates also have the effect of making games both hard 
to understand and hard to learn from. Such was not always the case. In the 
good old days of 16K Apples and cassette tapes, the games were given away at 
user groups. Most of the games were in Integer BASIC. The listings were 
published in magazines and newsletters, and seldom exceeded two pages. 
Novice programmers didn’t care that you could drink an entire soda pop 
before the ship got across the screen or that you could watch the bombs falling 
in slow motion, blip———blip———blip. Most of the people using those games 
wanted to learn about programming color graphics, and games were a good 
way to learn. Author Mike Weinstock has compiled a selection of the classic 
games such as AIR ATTACK and SAUCER DUELS that have been the 
precursor of many of the faster arcade games. Many types of games are not 
dependent on speed, such as adventure games like DRAGON’S LAIR, word 
games like HANG MAN and board games such as CONNECT-FIVE. These are 
all included along with many clever new games written by the author. 
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The games are written in Applesoft BASIC in a structured format. Structuring 
makes the programs more understandable and allows you to easily lift or 
adapt any routines that you like for inclusion in your own programs. The 
workings of each game are explained in a way that allows you to modify and 
customize the games to your heart's content. Two of the games, Mubble Chase 
and Sci Fi, are examined line by line. Sci-Fi introduces the principles of text 
formatting, word games, data statements, and input routines. Mubble Chase 
will help you understand how grids are constructed and graphic figures are 
moved and detected. 


Most of the programs in this book are structured in the same way, with a 
GOSUB, an empty target line and a RETURN line in exactly the same place. 
This allows you to start writing the ‘action’ parts of the program first and fill in 
the title screen, instructions, and ending routines later. This is a complete 
outline program that will RUN but doesn’t do anything: 
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10 REM STRUCTURED PROGRAM 

£0 GOSUB 1000: REM INSTRUCTIONS 
30 GOSUB 2000: REM SETUP 

42 GOSUB 3000: REM PLAY 

~@ GOSUB 4000: REM END 

G@ END 
1000: 

1990 RETURN 
2000: 

=990 RETURN 
3008: 

3990 RETURN 
AQAA: 

4990 RETURN 


avn 0 6 8 aA ew en 


STRUCTURED 
PROGRAMING J 
CENTER 


>, 


You can use this program as an outline for your own original programs. It 
helps you to stay organized and reminds you of what parts need finishing. 
Give this progam a snappy title such as EMPTY and save it on a diskette. Load 
it into memory when you feel creative and start writing within the framework. 


Techniques are given here that allow you to dissect basic programs and see 
what makes them tick. The games themselves are hours of fun. You will learn 
a lot about programming and de-bugging by typing in the games from the 
book and making them run correctly, or you may order the games diskette 
from DataMost, and use dissecting techniques described here to investigate 
their inner workings. Either way, you will not find a more enjoyable way to 
learn BASIC! 


Do not be afraid of your computer! Remember, you are smart and the 
computer is dumb. The reason that programs have bugs in them is that the 
computer has to be told every little thing. It can’t figure out a misspelled word 
the way you can. Fortunately Applesoft was written by some very clever 
humans who tried to program the computer to forgive as many errors as 
possible and to give very clear error messages for mistakes it does find. Relax 
and have fun. NOTHING you type in from the keyboard can hurt the 
workings of the computer, you will just get what is called GIGO— garbage in— 
garbage out. 


Whatever is typed into the computer's memory or loaded in from a tape or 
disk drive exists in a temporary state. If you turn off the computer or the dog 
trips over the power cord the program is gone—vaporized. If the program 
came from a tape or diskette it is still there and can be re-loaded as if nothing 
happened. We emphasize this because we want you to play around with the 
programs, change the lines around, put in silly statements and eventually get 
it so messed up that you will want to throw it away and load in the original. 
This is the best way to learn. Try these techniques for investigating the inner 
workings of programs: 


Change lines 


As an example, if you see COLOR = X, change it to color = 8 (red). Run the 
program and you will see that some figure that is supposed to change color 
now just stays red; often figures are drawn in one color, redrawn in black, and 
drawn again in color one space over. This makes the figure appear to move. If 
the figure becomes a red streak on the screen you have discovered the line that 
moves the figure. You will also know when the line is used in the program and 
what is affected by the variation you introduced. Change variables (A B X Y 
etc.) to arbitrary numbers. Do things get stuck? Do you get overflow or ‘illegal 
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quantity’ errors? Variables are often the hardest things to understand. After a 
line containing a variable ‘A (or any variable) you can add a print statement 
:PRINT A . A number representing the value of ‘A will flash on the screen 
when the line gets executed and this number may give a clue to the function of 
variable ‘A (we don‘t guarantee it). 


Use TRACE 


Just type this magic word before you run the program and the line numbers 
that are being executed are displayed at the bottom of the screen. Watch for 
repeated series; this is the program loop where the action occurs. TRACE stays 
on until you enter NOTRACE or RESET. 


Use STOP 
Put in STOP in a separate line, giving it a number between two numbered 
lines in the program. The program will stop at that point and wait for you to 


type CONT(inue). By using STOP you can tell what parts of the program 
execute before STOP is reached. 
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Detour 


If you want to know what the program will do without line 100, put a GOTO 
in front of it sending the program around line 100 without ever executing it. 


99 GOTO 110 (add this line) 
100 E=MC#MC (mystery line) 
110 PRINT "Hello" 


Now you can see what the program does without line 100. Does it still run? 
What goes wrong? Restore the program by typing 99 with nothing after it. 
This deletes both the line and the line number that you added. 


Delete lines 


A quicker technique than the detour. Just type the line number and RETURN 
to eliminate the line from the program. Use this method when the line 
numbers are too close together for detouring or have lots of GOTO and 
RETURN. Just reload the program from diskette to undo all your surgical 
mishaps. 


Add a ‘beep’ 
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If you want to know when a line is executed add a line PRINT CHR$(7) 
immediately after it. Be sure the line above doesn’t send the program 
somewhere else with a GOTO or RETURN. If it does, rewrite the line with 
PRINT CHRS§(7): at the beginning of the mystery line. The computer will 
obligingly beep when the line is executed. 


Isolate parts of programs 


Take away all but a few lines of the program by use of DEL(ete) 100,1200 or 
whatever line numbers are appropriate. Get the portion that is left to work by 
adding a few lines of your own. Mix parts of programs together using the 
Renumber program that is part of the DOS master diskette that comes with the 
Apple. Renumber has a MERGE utility that lets you put one program on hold, 
load another program, and merge the two together. You may get crazy results, 
but a lot can be learned in the process. You can name and save a part of a 
program even if it doesn’t run. Leave yourself little notes (REMs) to remind 
you where the pieces came from. 
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Add paddle or keyboard input 
If you want to see the action of variable ‘X’ you can add a line 


NNN (Cline number) X = PDL(O) 


You have to experiment around to find the right place for this line in the 
program loop. You will be able to control some action of the program that was 
previously automatic. Whatever value the program assigned to X up this point 
will be replaced by the X you insert. The paddle returns a value from 0 to 255. 
If this number is too large and makes the program crash, the value of paddle 
(0) can be divided to yield just the right range of values: 


xX = INT (PDL (@) / 6.95) 


This command will give you INTegers (whole numbers with no decimals) from 
0 to 39 to use with the lo-res graphics screen that is 40 characters wide. Of 
course additional variables can be controlled with paddle (1) and keyboard 
inputs until the entire program loop is under your control. 


Save the programs you have changed around 


When you get something that works, save it as an intermediate version even if 
you want to continue making changes. Often we make some useful changes 
and then mess the program up with later additions. You can delete extra 
versions later on if you run short of disk space. The only way to lose a 
program on diskette is to save another program with the same name on the 
same diskette. SO USE A DIFFERENT NAME! 


Don’t forget that you must turn on the computer with a DOS diskette in drive 
number one in order to be able to save programs to diskette. This is called 
BOOTING DOS. You can check to see if DOS is there by typing CATALOG. 
Always keep a few initialized empty diskettes handy, because the diskette must 
be initialized before it can be used. Here is a handy little HELLO program that 
will display the catalog of the diskette every time it is booted: 


Turn on the Apple with the DOS Master diskette in drive one. When the ] 
prompt appears type NEW 


1@ TEXT:HOME 

20 D$= CHR$(4):REM THIS IS CONTROL D 
32 PRINT "JOHN DOE’S GAME DISKETTE" 
40 PRINT "TODAY’S DATE" 

2@ PRINT D#5"CATALOG" 
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Run the program to test it out, and then place a new diskette in drive one. Be 
sure the diskette is empty because initializing a diskette erases everything that 
was on it. Add this line to the HELLO program: 


GQ NEW 


Don’t run the program after you have added this line, because line 60 erases 
the HELLO program from memory and leaves the computer ‘empty’ for your 
program to be entered. 


Type INIT HELLO <RETURN> 


Apple will create an initialized diskette that will display its catalog when 
booted and then clear the decks for your programs. This diskette will load 
DOS and allow you to save programs. You will not have to use the DOS 
MASTER diskette first. 
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Before the individual programs are explained, copy and run the following 
program. 


10 GR 
20 FOR I = @ TO 185 

38 COLOR= I 

40 VLIN @+34 AT 2#It+3 
3@ NEAT 

60 PRINT " * 
7@ PRINT " @ 


You will note that above the zero (0) there is, apparently, a blank space. 
Actually, the color zero is black (the background color), so what you see (or 


don’t see) is a black line drawn on a black background. 


Fill up your program diskette and have fun. 


A note about BUGS! It is not inconceivable that a few mistakes have crept 
into the following listings. Trust your intuition and tinker with the program 


even if you have to change what is in the book. Please drop us a card if you 
find a real boo-boo. 
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This program is not a game, rather, it is an entertaining collection of short 
stories which you make as personal as you want. You are given the chance to 
enter your own data. As with MUBBLE CHASE, this program will be 
described line by line. 


10 REM stands for REMark. Any comments, numbers, symbols, expletives, or 
anything else may follow REM. In this case, the remark is used to highlight 
the program name. The computer, in effect, ignores the material which follows 
REM. In this case, the 


REMark ***#*####+##4#+##% io made. 


11-16 completes the title with REM statements including two blank lines for 
readability. 


20 The entire program is controlled by lines 20 through 50. There are actually 
two parts to line 20. First, GOSUB 1000 instructs the computer to go to line 
1000, and to continue from there until the command RETURN is encountered. 
The second instruction, REM, is allowed on the same line for only one reason. 
The colon (:) allows the programmer to clump many, not necessarily related, 
instructions onto the same command line. This is usually done to show that 
certain pieces of a program are so closely related, that to isolate them on 
separate lines would belie their common purpose or association. The REMark: 
INSTRUCTIONS is the programmer's way of telling the reader that the 
subroutine beginning at line 1000 (GOSUB 1000) is where you can find the 
INSTRUCTIONS. In this case, the remark serves to explain the purpose of the 
subroutine rather than serving the equally important, but more eccentric, role 
of lines 10 through 16. 


30 When the subroutine, begun by line 20, is completed by the RETURN 
statement, the program, having completed line 20, drops down to the next 


17 


sequential instruction, which in this case is line 30. Like line 20, this line first 
initiates a subroutine (GOSUB 2000), and then informs the reader as to the 
main emphasis of the subroutine, which is the program SET-UP. 


40 This line is identical, in function, to line 30. 
50 END returns control to the machine. Control WAS with the program. 
1000 This line is the ‘target’ of the GOSUB in line 20. 


1001 Here, the REMark: *** INSTS is again made to inform the reader of the 
function of the subroutine. 


1010 This line contains three, distinct instructions. TEXT instructs the 
computer to change to (if not already in) the text mode. In this mode, all forty 
lines are reserved for text. The use of color is reserved for the graphics mode. 
Next, the instruction NORMAL is encountered. This command instructs the 
computer to display the text using white letters on a black background. HOME 
clears the screen of all text. Instructions such as this are called ‘housekeeping’, 
and should be included in all your programs. 


1020 VTAB is the programmer's way of telling the computer to Vertically TAB 
down three spaces. The reason that VTAB instructs the computer to tab 
DOWN, is that in terms of X and Y, 0,0 is in the UPPER left-hand corner. After 
the computer Vertically TABs down three (3) lines from the top of the screen, it 
is told to Horizontally TAB thirteen (13) spaces to the right. The next 
instruction, PRINT, tells the computer to prepare to output whatever follows. 
If the material is written between a set of quotes, then whatever is enclosed by 
the quotes is printed verbatim. If there are no quotes, then the numeric value 
of the variable will be printed. ‘To illustrate, if a program reads: 10 X = 5 

20 PRINT “X+3” the output will read ‘X +3’. On the other hand, if a program 
reads: 10 X = 5 20 PRINT X+3 the output will be ‘8’. Line 1020 causes the 
message *** SCI-FI *** to be printed. It will begin at a position three lines from 
the top (VTAB 3) and thirteen columns from the left margin (HTAB 13). 


1030 After Vertically Tabbing down seven (7) lines, the message that appears 
between the quotes will be printed. This time, the message will begin at the 
left-hand margin. 


1040 The empty PRINT statement serves a very useful purpose. What this 
statement does is to PRINT a blank line. Notice that some of the words of text 
in the listings are split in the middle and continue on the next line, but when 
printed on the screen by the program the text is neatly formatted. In the listing 


18 


there is no space between HOPESOF but it prints correctly when run. HOPE is 
at the end of the line, so OF would be indented one space when printed by the 
program if a space occurred in the listing. Good looking screen formats are a 
matter of trial and error. If you try to edit print statements using the arrow key 
you might have noticed that seven blank spaces are inserted in the text 
whenever the cursor wraps around a line. There is a cure for this problem that 
allows quick editing of basic listings: type POKE 33,33 <RETURN> before 
typing LIST. The text will not be indented and can be easily copied over and 
parts changed. RESET gets things back to normal. 


1050 Notice that the instructions asks you to type RETURN. Nothing gets 
entered in ANS$ and in fact it becomes an ‘empty’ string. The function of 
ANSS in this program is just to hold up the works until you have read the 
screen and want to continue. Many programs ask for your name in a similar 
situation and then use the input in an appropriate response. 


Try this: 


1050 VTAB 23: INPUT "HI»+ WHAT‘’S YOUR NAME" 5NAS% 
106@ PRINT"WELL HELLO "SNA$5"5 LETS PLAY SCI-FI" 
1070 FOR I= 1 TO 200@:NEXT I 


Since the program would dash off after it received NA$ we add a delay loop in 
1070 to wait just long enough for us to read line 1060. You can use any letters 
for variables as long as they are not basic commands (reserved words). For 
clarity variables should suggest what they perform. Programmers generally 
use ANS for answer and NA for names but are not required to. The ON— 
GOTO command can provide excellent flexibilty in your programs. In Sci-Fi a 
random number sends the program off to different sections, but this command 
also works well for branching from a menu: 


10 PRINT "PRESS 1 FOR SALAD» 2 FOR ENTREE>s OR 3 FOR 
DESSERT" 

20 GET xX 

30 ON X GOTO 18001+200 5,300 


Starting at line 100 you would put the salad choices, etc. If you succeed in 
actually teaching the computer to make a salad let me know. 


1990 RETURN ends the subroutine initiated by line 20 and begun at line 1000. 
At this point, program flow is RETURNed to line 20, and then line 30. 


2000 As stated before, a blank colon (:) is a legitimate means of writing a 
virtually blank line within the program itself. 
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2001 On this line, the main function of the subroutine is detailed by a REM 
statement. 


2002 This command line serves to separate line 2001 from the body of the text. 


2005 This line appears to be a nebulous conglomeration of variables. Not so! 
This line serves a very specific purpose. DEF stands for DEFine. The next 
question is, what is to be defined? The answer is, a FuNction (FN). The 
FuNction being DEFined is R(X). ‘R’ is the given name of the function. ‘X’ is a 
variable name which is equal to the FIRST INT ( RND (1) * X) + 1. Each time 
the FuNction ‘R (any variable or digit)’ is used, the variable inside the 
parentheses assumes the value of ‘INT ( RND (1) * (the new variable or digit)) 
+ 1. Following will be a list which, hopefully, will help you to understand the 
“DEF FN’ statement. 


FUNCTION VALUE OF VARIABLE OR DIGIT VALUE OF FUNCTION 
A(X) =4°X+5 ‘X’, IF NOT STATED, =0 A(X) =5 (470 +5) 
A(13) 13=13 A(13) =57 (4*13 +5) 
A(Y) LET US SAY THAT Y=6 A(Y)=29 (4*6+5) 
BS(X) = X*X-22 X=0 BS(X) =-22 (0*0-22) 
BS(17) 17 = 17 BS(17) =267 (17*17-22) 
BS(EN A(Y)) FN A(Y)=29 BS(FN A(Y)=819 

A(EN BS(17) FN BS(17) = 267 A(EN BS(17) = 1073 (267*4 +5) 


Here is a program to further illuminate the function of line 2005. 


THE PROGRAM THE OUTPUT 
10 A = 17:C = 2.65 — 

20 DEF FN PRY(C) = -A*C — 

30 PRINT C; : PRINT FN PRY(C) 2.65 -45.05 
40 PRINT A; : PRINT FN PRY(A) 17 -289 
50 PRINT FN PRY(FN PRY(C)) 765.85 


Line 20 identifies the variable as being ‘C’. Therefore, whenever the FuNction 
‘PRY’ is executed, the variable (or digit) within the parentheses is substituted 
for C. In line 2005, “X’ is the variable. If the number five (5) is substituted for 
X, then the result is, R(5) = INT ( RND (1)*5 + 1. The reason the DEF FN 
instruction is used in this program is so that whenever a random number 
between 1 and any other number is needed, all the programmer need write is 
R(any other number), and the random result will be generated. 
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2010 This line sets aside sixteen memory locations for SO$. The instruction, 
DIM, instructs the computer to DIMension memory so as to allow for sixteen 
separate values of SO$. Also, the value of SO is set to zero. The number in 
parentheses is the number of the array variable. Apple starts counting from 


(0). 


2011 This line sets up a one-dimensional table in memory. This table can 
accomodate up to sixteen separate values of PL$. Also, PL is set to 0. 


2012 and 2013 are both duplicates of lines 2010 and 2011. 


2015 The READ statement is an interesting animal. What is does is to find the 
first available DATA statement and read from it. In this program, the first 
DATA statement is at line 2020. What happens is, the first piece of data before 
a comma (Alexander Haig) is read into (stored at) SO$. Then a test is done to 
see if SO$ is equal to END. If so, the program falls through to line 2016. If not, 
SO is incremented, SO§(0) is assigned the value of the contents of SO$ 
(Alexander Haig), and then the process is repeated (GOTO 2015). The program 
will next READ the second piece of DATA (Ronald Reagan) and store it in SO$. 
The test will again prove negative, SO will be incremented, RONALD 
REAGAN will be stored at SO$(1), and the process will be repeated. After the 
seven pieces of DATA on line 2020 are read, the DATA statement on 2021 is 
read next. This time the test on line 2015 (SO$ < > “END”) will prove to be 
affirmative, so the program will fall through to line 2016. When you 
understand that SO, SO$ and SO$(0) are all different variables you get a gold 
Star. 


2016 Once a DATA statement has been read, it is no longer “available”. 
Therefore, the first available data is on line 2025. It seems likely that PL stands 
for PLace. Actually, all of the variables are representative of their meaning. 


2017 and 2018 Both of these lines are identical in function to line 2015. 


2020 If the data in a DATA statement is to be read into a character-string 
location (a variable ended with a dollar sign), then it must be enclosed in 
quotes (“ ”). Each item is kept separate from other items by using a comma. 


2021 through 2036 These are all DATA statements. All of the data could have 


been combined into one long DATA statement. The reason for dividing the 
lines was to add clarity. 
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2100 (six instructions) HOME clears the screen of text. The VIAB and HTAB 
instructions pinpoint where the beginning print location will be. The message, 
** SCI = FI ***, is outputed. The computer is next instructed to TAB down to 
line 22. At this point a message is printed. 


2110 The messages printed at line 2100 still appear on the screen. Previously, 
the printing had been done on line 22 (VTAB) 22). The first instruction brings 
the computer back up to line 7 (VTAB 7). The message between the quotes is 
printed, starting at line seven at the left-hand margin. The empty PRINT 
statement follows the above message with a blank line. 


2114 This line sets the counter (CO) to zero. 


2115 Line 2110 revealed the nature of the input, now you have a place to put 
those names. Just input whatever you'd like. When you’ve entered five pieces 
of data, or when you enter nothing, the program will fall through to line 2117. 
The data that you input is stored in SO$ (temporarily). Then the input is tested 
to see if “nothing” (RETURN) was entered. If so, the program falls through. If 
not, the line continues; CO is incremented; 5O$ is moved to a permanent 
location (SO$(SO)); the counter is incremented and tested; if the counter is not 
yet five, then the line is begun again. 


2117 This line clears the screen (HOME), and then prints the message 
beginning at line three (VTAB 3) column thirteen (HTAB 13).Then the 
computer is instructed to tab down to line seven (VTAB 7). 


2120-2145 continues the INPUT sequences for Places that will be Attacked, 
Names of Monsters, etc. 


2150 RETURN ends the subroutine initiated by line 30 and started at line 2000. 
Program control is returned to line 30. 


2900 This line sets the value of PT to one (1) each time the subroutine (lines 
2900-2990) is begun. 


2905 MID$§ states that the computer will look at the MIDdle of a given word. 
Which word? All of the remaining pertinent information is in the parentheses. 
The word or words that are to be checked by MID$ are contained in WRD$. 
Beginning at the left-hand side of WRD$, the computer will begin the scrutiny 
at that character plus PT. If WRD$ contained the phrase “I Love You”, and PT 
equals six, then MID$ (WRD§,PT) would instruct the computer to begin 
looking at ‘I Love You’ six characters over from the left most character (the ‘e’ 
in ‘Love’ is the SIXth character). If not specified, the computer will begin the 
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search at the designated location, and continue through to the end of the 
word/s. If you want a certain number of characters looked at, just specify that 
number after you tell the computer where to start. The following program 
should help. 


PROGRAM OUTPUT 
10 A$ = “SEND MONEY” _- 

20 PRINT MID$ (A$,4,5) | DMON 
30 PRINT MID$ (A$,1,6) © SENDM 


In line 20, the computer is told to search the MIDdle of A$, to begin 4 
characters from the left and to PRINT the next 5 characters. Likewise, line 30 
tells the computer to PRINT the contents of A$ beginning with character 1,and 
to continue for a total of 6 characters. You will admit that at the end of most 
words you will find a blank space. The test (IF MID$ (WRD$§,PT,1) = “ ”) 
checks to see if the character at position PT is a blank space (_ ) and it checks to 
see if its line position is greater than 30. PEEK (36) surveys the screen and 
checks to see if the cursor is beyond column 30 (there are 40 columns to a row 
(0-39)). If the cursor is beyond column 30, and MID$ (WRD$,PT,1) = “ ”, then 
the next word to be written is in danger of overflowing the right-hand margin. 
To prevent this from happening, an affirmative test result will force the 
computer to skip to the next line before continuing to print. 


t, M3 f te, bs Z ! 
WSs aK Bia Wat Yoh oe f 
S 8 SS Sar as 4 ON 


fe /- ‘ . f ’,, 
pols wormnaen et Weare MMM AEE Yg 
Ca 


uit 17 Zs xo My ! W Dh 
uy Laie ag Ht an CMY TL dunt »." ae re aN 


woRDS: ‘SuP ER INA N 


2910 There are two steps to this line. First, PT is incremented (PT = PT +1). 
Second, the size of PT is compared to the character LENgth of WRD§. For 
example, if WRD$ contained the phrase EARTH WAS ATTACKED, then the 
LENegth of WRD$ would equal the number of characters in that phrase (18). To 
prevent lines 2905 and 2910 from looping indefinitely, there must be some 


23 


contingency factor, some restraint which stops the loop. This is the function of 
the second half of line 2910. When PT is larger than the length of WRD$§, the 
program will fall through to line 2990. 


2990 This line completes the subroutine begun at line 2900. 
3000 This is the ‘target’ of the GOSUB in line 40 


3001 The REMark *** PLAY is used to inform the reader of the main function of 
the subroutine starting at line 3000. 


3010 through 3070 instruct the computer to perform various subroutines. 
These subroutines determine which format the story will reflect. 


3075 and 3077 A legal filler and an empty line. 

4 
3080 The computer waits for you to indicate that you have finished reading the 
story by pressing RETURN. You could change this line to allow the reader to 
escape from further Sci-Fi literature. 


3080 INPUT "HAD ENOUGH "SANS¢4 
3085 IF LEFT$(ANS$+1) = "Y" THEN END 


Using the LEFT string function to find the first letter of “yes” is standard 
practice, and most computerists are used to answering ‘Y’ and expecting it to 
work. ‘Yo’, “Yea’, ‘Yes’, will all work. Any other response will end the program. 
Instead of END you could branch to a line at the end of the listings and add 
any farewell sequence you wished. 


3100 This line first clears the screen of text (HOME). Then the function defined 
at line 2005 yields a RaNDom number between one and five. If the integer 
generated is one, then the program will branch to 3110. If FN R(5) generates 
the integer ‘2’, then the program branches to 3120. If FN R(5) yields 3,4, or 5, 
then the program will branch to 3130,3140, or 3150 respectively. 


3110 through 3150 These lines PRINT the five different attention-getting 
headlines. 


3200 Line 2016 counted the total number of PLaces saved in PL$. FN R(PL) will 
yield a RaNDom integer ranging from one to PL. There is the name of a 
different place saved in PL$(1), PL$(2), PL$(3).....PL$(PL). What this line does 
is to randomly select one of the many PLaces and to copy it into the location 
WRD$. Then the subroutine beginning at line 2900 checks to make sure that 
the PLace is not PRINTed in such a manner that it breaches the right margin. 
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3300 Like line 3100, selects a RaNDomly generated integer ranging from one to 
five (FN R(5)), and depending on the integer, branches to line 3310, 3320, 3330, 
3340, or 3350. 


3310 through 3350 These lines serve as continuations of the currently 
unfolding drama. One of the five rather repugnant actions is stored in the 
location WRD$. 


3400 Location WRD$§ already contains one of the five actions outlined on lines 
3310 to 3350. These lines add the name of one of the many (MO) monsters 
(MO$) to WRD§. Line 2217 counted the number of monsters and stored the 
name of each one in an MO$ location. This line RaNDomly selects one of the 
MOnsters and adds its name, plus a trailing blank space (“ ”) to WRD$. Each 
time the subroutine at 2900 is performed, the contents of WRD$ are PRINTed 
and cleared from WRD$. Each time WRD$ is emptied, the story grows. 


3500 First, the word ‘FROM’ and a trailing space (“ ”) are stored in WRD$. 
This word is added to the developing story. At the subroutine beginning at 
line 2900, the contents of WRD$ (FROM ) are added to the rapidly developing 
story. Then, the HOme base of the MOnsters is added to WRD$, and a period 
(“.”) is also added. Once again WRD$ is emptied (in the 2900 subroutine) and 
the story sprouts another section. 


3600 From the list of potential heroes, SOmeone will be RaNDomly selected 
(FN R(SQ)). A space (“ ”) will follow SOmeone’s name, and then this material 
will be added to the story. 


3700 First, the words “TRIED TO” are added to the text. Next, one of the five 
‘defense methods’ is randomly selected and added to WRD$ (at 3710, 3720, 
3730, 3740, and 3750). Finally, the subroutine which begins at line 2900 adds 
the ‘defense technique’ to the story. 


3710 through 3750 These lines contain the five ‘defense techniques’. 
3800 Two more words and a trailing space (BUT THEY) are added to the text. 
Next, one of five responses to SOmeone’s ‘defense technique’ is RaNDomly 


chosen and the text is once again supplemented. 


3810 through 3850 Each line contains one of the five responses to a ‘defense 
technique’. 


3900 There are five ways to announce the changing fortunes of battle. One of 
these five choices is randomly selected (FN R(5) GOTO....). The subroutine at 


25 


line 2900 again prevents right-hand margin overflow while adding the new 
material to the story. 


3910 through 3950 These lines contain the five ‘fortune-reversal lead-ins’ 
mentioned at line 3900. 


4000 You were given an explanation of the “ON” statement in line 1050, but it 
deserves reiteration. First, line 2005 DEFined the FuNction R(X) to be be equal 
to a RaNDon INTeger between 1 and X. The number 5 is substituted for “X’, 
making R(5) yield a random integer between one and five. The “ON” 
statement will cause the program to execute one of the five given subroutines, 
depending on the value of FN R(5). If the number generated is 3, then line 
4000 reads, in effect, ON 3 GOSUB (the 3rd line-number) which is line... 4030. 
After one of the five subroutines is performed, the program executes the 
subroutine beginning at line 2900. Then RETURN completes the subroutine 
initiated at line 3060. / 


4010 through 4050 These five lines contain the different ‘attack methods’ that 
SOmeone might employ. The information is stored in WRD$ until it is 
PRINTed (by line 2900). 


4100 A two word phrase, “SO THEY ”, is stored in WRD$ for later addition to 
the story. Next, the subroutine beginning at line 2900 is executed. This 
subroutine not only PRINTs the contents of WRD$, but it prevents the 
contents of WRD$ from being printed so that they breach the right margin. 
After one of the five ‘attack results’ is added to WRD$§, the subroutine which 
begins at line 2900 is executed. For all intents and purposes, the RETURN 
statement at line 4100 completes the program. 


4110 through 4150 These lines contain the five ‘results’ of the ‘attack method’. 


Even as you read these words some of the illustrious characters whose names 
are stored in the data statements are slipping further into obscurity. Put in 
your own selection of names. This program is really an easy one to change and 
make your own. Change the data statements and print commands to your own 
fiendish specifications. You can save the new version under a new name and 
have both versions on diskette. Remember! What you change in the 
computer’s memory does not change what is stored on the diskette unless you 
save the new version and give it the same name as the old version. It is sound 
practice to leave the original version unchanged on a different diskette and call 
your version Sci-Fi V1, Sci-Fi V2, etc. Have fun changing things around. It’s 
the best way to learn. 
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10 
11 
12 
13 
14 
15 
16 
2@ 
3@ 
Ad 
oO 
1000 
1001 
1002 
1010 
1020 


1030 


1040 


REM HLEKKKHEEKKKKKKEKKEKHHEEE 


REM %*** % % % 
REM x*%** SCI-FI % & % 
REM EEE KE 
REM HEE KHHKRHEHKHEKEKEHESX 
REM 


REM 
GOSUB 1000: REM INSTS 
GOSUB 2000: REM SETUP 
GOSUB 3000: REM PLAY! 
END 


REM *#% INSTS 


TEAT =: NORMAL : HOME 
VTAB 3: HTAB 13: PRINT "*#x# 
OCI-FI *##x" 

VTAB 7: PRINT "THIS PROGRAM 
WILL PRODUCE LOTS OF FUNNY 
LITTLE SCIENCE-FICTION STORI 
ES FOR YOUR READING PLEASURE 


PRINT : PRINT "YOU ARE GIVE 
N THE CHANCE TO ENTER SOME 
PERSONALLY RELEVANT INFORMAT 
TON IN HOPESOF MAKING THE ST 
ORTES MORE INDIVIDUAL." 

VTAB 23: INPUT "HIT RETURN 
WHEN READY TO CONTINUE =: "3sA 
NS$ 

RETURN 


REM *** SETUP 

DEF FN R(X) = INT ¢ RND ( 
1) * X) + 1 

DIM $0$(15):50 
DIM PL#$(15):PL 
DIM MO$(15):M0 
DIM HO#$(15):HO = 
READ SO%$: IF SOS < "END" 
THEN SO = SO + 1:508$(50) = 
90%: GOTO 2015 


SS & & 


2/ 


201G READ PL#: IF PLS © > "END" 
THEN PL = PL + 1:PL$(PL) = 

PL$: GOTO 2016 
2017 READ MO%$: IF MOS < "END" 
THEN MO = MO + 1:MOS(MO) = 

MOS: GOTO 2017 
2018 READ HO$: IF HOS = 3} "END" 
THEN HO = HO + 1:HO$(HO) = 

HOS: GOTO 2018 

2020 DATA "ALEXANDER HAIG" »"RON 
ALD REAGAN" »"SUPER CHICKEN" + 
"FATHER GUIDO SARDUCCI"+s"A L 
ITTLE GIRL" +"AN INTERESTED O 
NLOOKER" +"SUPERMAN" 

2021 DATA “END" 

2025 DATA "SYRACUSE" »"NEW YORK" 
"EARTH" »+"THE UNITED STATES" + 
"YOUR TOWN" »"LOS ANGELES" +"W 
ALLA-WALLA WASHINGTON" »"THE PR 
ESIDENT" »"THE EASTERN COAST" 


2026 DATA END 
2030 DATA "LITTLE GREEN MEN">"A 
CROWD OF ANGRY PEASANTS BEA 
RING TORCHES" »"BOOGEY MEN" ," 
ALIENS" +"IN-LAWS" »"SPACE EGG 
S"s"FLYING GOOKIES" »"2OMBIES 
"s"RELIGIOUS FANATICS" »"ICKY 
THINGS" 

2031 DATA "END" 

2035 DATA "VENUS" +"MARS" »"OUTER 
SPACE" »"OUT OF OUR GALAXY" +" 
THE MOON" >"THE FOURTH DIMENS 
ION" »"THE NEGATIVE ZONE" +"A 
TIME WARP" »"THE STARS" »"PLUT 
Oo" 

2036 DATA "END" 

2100 HOME : VTAB 3: HTAB 13: PRINT 
"##*% SCI-FI *###": YTAB 22: PRINT 
"PRESS RETURN AT ANY TIME." 

2110 VTAB 7: PRINT "TYPE IN UP T 
O 3 NAMES OF PEOPLE THAT 
WILL SAVE THE DAY =: "“s PRINT 
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2-114 
2115 


£137 


140 


2144 
2145 


2150 
2900 
2905 


£910 


"350%: IF SOS 

> "" THEN SO = $0 + 1:508(5 
0) = $0%$:CO = CO + 1: IF CO 
> THEN 21195 


HOME : VTAB 3: HTAB 13: PRINT 
"exe SCI-FI #*##": UTAB 7 

PRINT "TYPE IN UP TO 3S NAME 
S OF PLACES THAT WILL BE 
ATTACKED : "s: PRINT 

LET CO = @ 

INPUT "===2 "SPL%: IF PL$# 


"" THEN PL = PL + 1:PL$(P 

L) = PL#:CO = CO + it: IF CO 
> THEN 2125 

HOME : YVTAB 3: HTAB 13: PRINT 
"ee SCI-FI #*#*": UTAB 7 
PRINT "TYPE IN UP TO S NAME 
S OF MONSTERS THAT WILL ATT 
ACK : "s: PRINT 

LET CO = @ 

INPUT "=== 2 "SMO%: IF MOS < 

"" THEN MO = MO + 1:MOS(M 

O) = MO$:CO = CO + i: IF CO 
~ THEN 2135 

HOME : VTAB 3: HTAB 13: PRINT 
"¥e% SCI-FI *#*#%": UTAB 7 

PRINT "TYPE IN UP TO 5S NAME 
S OF PLACES THAT THEMONSTERS 
COME FROM : "s: PRINT 

LET CO = @ 

INPUT "===> "SHO#: IF HOS 

> "" THEN HO = HO + 1:HO$(H 
0) = HO$:CO = CO + 1: IF CO 
> THEN 2145 


RETURN 

LET PT = 1 

PRINT MID&® (WRDS>PT»1l)5: IF 
MIDS (WRD#s»PT»1) = " " AND 
PEEK (3G) = 30 THEN PRINT 
PT = PT + i: IF PT “© = LEN 


(WRDS) THEN 29905 
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33190 


RETURN 

REM +*#*## PLAY 

GOSUB 3100: REM TITLE 
GOSUB 3200: REM PLACE 
GOSUB 3300: REM ACTION 
GOSUB 3400: REM MONSTER 
GOSUB 3500: REM PLACE 
GOSUB 3600: REM SOMEONE 
GOSUB 3700: REM DEFEND 
GOSUB 3800: REM TOO TOUGH 
GOSUB 3900: REM FINALLY 
GOSUB 3600: REM SOMEONE 
GOSUB 4000: REM DEFEND 
GOSUB 4100: REM THEY DIED 
PRINT 

VTAB 23: INPUT "HIT RETURN 
WHEN READY TO CONTINUE "SA 
NS$ 

GOTO 3010 

HOME : ON FN R(S) GOTO 3i1l1 
0°:3120,3130,3140,3150 

WTAB 3: PRINT "“**% FLASH! F 
LASH! FLASH! **##*": VTAB 7: RETURN 
VTAB 3: PRINT "**¥% BULLETIN 
Pll ###": YVTAB 7: RETURN 
VTAB 3: PRINT "**¥* ALERT !! 
1 *#*##": VYTAB 7: RETURN 

VTAB 3: PRINT "*#%% SPECIAL 
NEWS BULLETIN *##": VYVTAB 7: RETURN 
VTAB 3: PRINT "*¥*% TO ALL C 
ITIZENS *¥*#*#": VYVTAB 7: RETURN 


WRDS = 


GOSUB 
ON 


PL$( FN R(PL)) 


2900: 


FN RCS) 


+ tl 


RETURN 
GOSUB 3310:3320 


933980 53340-3350: 


RETURN 


WRDS = 


"WAS ATTACKED BY "s 


GOSUB 2900: 


RETURN 


WRD$ = "WAS EATEN BY ": RETURN 

WRD$ = "IS UNDER THE SPELL O 

F “: RETURN 

WRD$ = "IS BEING INVADED BY 

": RETURN 

WRDS = "IS OVER-RUN BY ": RETURN 

WRDS = MOS( FN R(MO)) + " "s 
GOSUB 2900: RETURN 

WRD$ = "FROM ": GOSUB 2900:W 

RDS = HO$( FN R(HO)) + ". "s 
GOSUB 2900: RETURN 

WRD$ = SO$( FN R(SO)) + " ": 
GOSUB 2900: RETURN 

WRDS = "TRIED TO “: GOSUB 29 

0@: ON FN R(5) GOSUB 3710+3 

72013730 13740,3750: GOSUB 29 

00: RETURN 

WRDS = "KILL THEM ": RETURN 

WRD$ = "FIGHT THEM “: RETURN 

WRDS = "HOLD UP A CROSS ": RETURN 

WRD$ = "ATTACK AT DAWN ": RETURN 

WRD$ = "SHOOT THEM ": RETURN 

WRD$ = "BUT THEY ": GOSUB 29 

02: ON FN R(5) GOSUB 3810/3 

820 +383013840,3850: GOSUB 29 

00: RETURN 

WRD$ = "WERE TOO TOUGH. ": RETURN 

WRDS = "KEPT COMING. “: RETURN 

WRD# = "YELLED AND LAUGHED, 

": RETURN 

WRD$ = "SCREAMED FOR MORE. " 
RETURN 8 

WRD$ = "SHOT BACK. ": RETURN ° 
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3900 


ON FN R(S) GOSUB 3910;3920 
939380 +3940,3950: GOSUB 2900: 
RETURN 
WRDS = "“FINALLY» “: RETURN 
WRDS = "LATER» “: RETURN 
WROS = "THEN «++ “: RETURN 
WROS = "BUT THEN» “: RETURN 
WRDOS = "AFTER» "“: RETURN 
ON FN R(S) GOSUB 4010,4020 
24030 +4040,4050: GOSUB 2900: 
RETURN 
WRDOS = "YELLED AT THEM, ": RETURN 
WROD = "DROPPED WATER ON THE 
Ms» "ss RETURN 4 
WRDS = "EXPOSED THEM TO MEAS 
LES ": RETURN 
WROS = "NUKED THEM, "“: RETURN 
WRDS = “SHOWED THEM RERUNS OQ 
F IT LOVE LUCY, “: RETURN 
WROS = "SO THEY "“: GOSUB 29¢ 
@: ON FN R(S) GOSUB 4110,41 
209+:4130+4140,4150: GOSUB 2990 
@: RETURN 
WRDS = "DIED.": RETURN 
WROD = “TURNED INTO LITTLE B 
ROWN LUMPS.": RETURN 
WRDS = "PASSED AWAY.": RETURN 
WRDS = "LEFT FOR HOME.": RETURN 
WRDS = "VANISHED INTO NOTHIN 


GNESS.": 


RETURN 


Wiis li ae Me 


% 
“SST if / Wan 
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This game is designed to compel the user to define any object that is chosen. 
This process ‘teaches’ the computer a definition of up to fifty objects. 
Although each run starts with the same elementary knowledge, the user adds 
the information which makes it harder and harder to stump the computer. To 
see the “setup,” list -2030. The only two objects which the computer “knows” 
are a car and a house. Line 2015 specifies that RA$(1)=car, and 

WAS$(1) = house. Line 2010 gives each of these variables fifty locations, so you 
can play for a long time. What the DIM statement does is to DIMension 
memory so that BA$, WAG, etc. will be able to contain up to fifty separate 
values. In other words, BA§$(1), BA$(2), BA$(3) ....BA$(50) each contain a 
distinct value. This program demonstrates writing to array tables and 
searching the arrays for matching strings. You could use the routines in this 
program to write educational programs and tests. 
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12 
11 
12 
13 
14 
id 
16 
20 
30 
40 
2 @ 
1000 
1001 
1002 
1010 
1020 


1030 


104¢ 
1041 


REM KEKE KKEKRHKHKKEKHKHKES 
REM %*#%# %H% 
REM ** APPLE LEARNER *%# 
REM *#%* KH 
REM HEHEHE KHKEKKKHKKRKES 
REM 
REM 
GOSUB 1000: REM INSTS 
GOSUB 2000: REM SETUP 
GOSUB 3000: REM PLAY! 
END 
REM *#%* INSTS 
TEX HOME : NORMAL 
VTAB 3: HTAB 9: PRINT "**¥% 
APPLE LEARNER **#" 
VTAB 7: PRINT "THIS IS A GA 


ME THAT HAS THE ABILITY TO 


LEARN. IT WILL ATTEMPT TO G 
UESS THE NAME OF AN OBJEC 
T THAT YOU PICK AT RAND 
OM." 

PRINT 

PRINT "WHENEVER YOU STUMP T 


HE COMPUTER,» YOU AREASKED AB 
OUT THE OBJECT YOU SELECTED. 
BYCOMPILING THIS INFORMATI 
ON» THE COMPUTER ‘’LEARNS’," 
PRINT PRINT 
PRINT "ENTER 
U ARE DONE. "° 
VTAB 23 
INPUT "HIT RETURN WHEN READ 
Y TO CONTINUE "SANS$ 
RETURN 


‘STOP’ WHEN YO 


REM #*#** SETUP 


DIM QUS$(5@) »sRI(350@) »WR(3O) oR 
A$(30) »sWAS(50) 
QUS¢(1) = "DOES IT MOVE ALONG 
THE GROUND" :RIC1) = O:WR(1) 
= @ 
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33le 


3315 


RAS(1) = "CAR":WAS$(1) = "HOU 
Se" 
FR = 2 

RETURN 

REM #*** PLAY 
LI = 1 

HOME VTAB 3: HTAB 9: PRINT 
"#** APPLE LEARNER ***": WTAB 
PRINT "I KNOW OF "FR" OBJEC 
TS «66 "2: PRINT 

PRINT PRINT QUS(LI)5: INPUT 
" 2 "SANSS:ANS$S = LEFTS (CAN 
5$ 1) 

IF LEFT (ANS$»1) = "¥" THEN 
3100 

IF LEFT (ANS$+1) = "N" THEN 
3200 

IF LEFT# (ANS$+s1) = "S" THEN 
TEAT END 

PRINT “PLEASE ANSWER ‘YES’ 
OR ‘NO’... "s PRINT =: GOTO 3@ 
2@ 

IF RI(LI) THEN LI = RIC(LI): 
GOTO 3020 
GUS = RAS(LI): GOTO 3300 

IF WRC(LI) THEN LI = WR(LI): 
GOTO 3020 
GUS = WAS(LI): GOTO 3300 

PRINT "IS IT A "sGU$5 

INPUT " ? "STAS:TAS = LEFTS 
(TAS+1): IF TAS = "¥" THEN PRINT 

PRINT "I GOT IT !!!"$ CHRS 

(7)5 CHRS (7)3 CHRS (7): FOR 
PA = 1 TO 1000: NEXT PA: GOTO 
3805 

IF TAS = "S" THEN TEXT =: END 

PRINT : PRINT INPUT "WHAT 


WAS THE OBJECT?" 5NAS$ 


3) 


3317 


3320 


33209 


IF FR = 351 THEN 
AN’T REMEMBER 
MEMORY 


PRINT "I C 
THAT ONE. MY 
SEEMS TO BE FULL... 
"s FOR PA = 1 TO 1000: NEXT 
PA: GOTO 3005 

PRINT PRINT "WHAT IS A QU 
ESTION THAT I COULD USE TO 
TELL THE DIFFERENCE BETWEEN 


"s PRINT GU" AND "NAS$3s: 

" 2 "SQUS 

PRINT "FOR "NAS" THE ANSWER 

IS WHAT" 5 INPUT " 7 "“SYN$: 
YN = LEFT#S (YN$51): IF YN$ 

wy AND YN am NN 

" THEN 3325 

IF ANS = "YY" THEN RIC(LI) = 
FR:eLI = FR:FR = FR + 1 

IF AN = "N" THEN WRC(LI) = 
FReLI = FR:FR = FR + 1 
QUé(LI) = OU 

IF YN# = "Y¥" THEN RAS(LI) = 
NAG: WAS(LI) = GUS 

IF YN# = "N" THEN RAS(LI) = 
GUSé:WAS(LI) = NAS 

GOTO 3005 
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INPUT 


This program is designed to interpret input, and from it, graph the user’s 
biorhythms. You can accept the output to be as valid as you please, but don’t 
expect the results to be testimony. Biorhythms, though fascinating, are still 
considered to be unscientific. There are several features of the program worth 
noting even if it won't predict the future: 


Lines 2010 to 2025 set up a simple calendar printing routine. A few more lines 
and you could add leap years to it. 


Line 3020 asks for a date and tells you exactly how to format the response. 


Lines 3025-3028 ‘error check’ the input. Error checking is a vital part of so- 
called user friendly programs. 


Line 3140-3148 position the P, E and C characters into beautiful sine curves. 
Even if you have forgotten all your high school math you can try out the trig 
functions by plotting points to give a graphic representation of the function. 


Did you recognize 6.28318 as 2Pi? 


Running BIORHYTHM in the TRACE mode will show you very dramatically 
the FOR-NEXT loops in 3152 and 3208 that create the patterns. 


The program uses complicated string functions and nested loops, so don’t feel 


bad if it all looks like Relativity Theory. You can write a lot of programs which 
never get this complex. 
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70 

1000 
1001 
1002 
1010 
1020 


1030 


REM HHHEKEKHHKKKEKEKKEKEKKKEKEKE 


REM *** HH % 
REM *#%* BIOQRHYTHM HHH 
REM x*%*+* HH % 


REM HER HEHHEHKKKKKKKKEKHEE 

REM 

REM 

GOSUB 45 

GOSUB 1000: REM INSTS 

GOSUB 2000: REM SETUP 

GOSUB 3000: REM PLAY! 

END 

HOME : VTAB 4 

PRINT "A GRAPH OF BIORHYTHMS 
IS COMPOSED OF THELETTERS C+ 
E> IT» AND Pe EACH OF THESE 


IS"s 
PRINT " A REPRESENTATION OF O 
NE OF YOUR "4 


PRINT "MEASURABLE BIORHYTHMS. 


FOR I = 1 TO 4: PRINT NEAT 
HTAB 6 
PRINT "I = INTELLECTUAL STATE 


PRINT =: HTAB G 

PRINT "E = EMOTIONAL STATE" 

PRINT =: HTAB 6& 

PRINT "P = PHYSICAL STATE" 

PRINT : HTAB 6G 

PRINT "C = THE CROSSOVER POIN 
T" 

FOR I = 1 TO Gs: PRINT =: NEXT 
: INPUT “PRESS RETURN WHEN R 
EADY TO CONTINUE : "SANS 

RETURN 


REM #*#% INSTS 
TEAT = NORMAL : HOME 
VTAB 3: HTAB 11: PRINT "*** 


BIORHYTHM ***" 
VTAB 7 
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1031 


1d4¢ 


1d42 


1@45 


1030 
1051 


1060 


1065 


PRINT "THIS PROGRAM WILL GR 
APH OUT YOUR UNIQUE BIORHYTH 
MIC CYCLES» EITHER ON THE SC 
REENOR TO A PRINTER. "° 

VTAB 16: PRINT "SHOULD I QU 
TPUT TO: 

PRINT 
EEN 


PRINT " 5)CR 
-OR- 
PRINT " 
VTAB 22 
INPUT "WHICH DO YOU WANT (5S 
/P) ? "SANS#$EANSS = LEFTS ¢ 
ANS$+1): IF ANSS « "S" AND 
ANS$ "P" THEN 10590 
IF ANS$ = "S" THEN RETURN 


PORINTER 


VTAB 22: CALL - 958: 
"IN WHICH SLOT IS YOUR 
ER?" SSLOT$:SLOT = VAL (SLOT 
$): IF SLOT <= 1 OR SLOT => 7 OR 
SLOT INT (SLOT) THEN 1 
065 

RETURN 


INPUT 
PRINT 


REM **%* SETUP 
DIM AC12) »sB(12)+T(3) sAS(21) 


C# = "JANFEBMARAPRMAY JUNJULA 
UGSEPOCTNOVDEC" 
FOR I = 1 TO 12: READ ACI): 
NEXT DATA @:+31+59;90;7120, 
13515181 +5212 .243 +273 :304 +334 
FOR I = 1 TO 12: READ BCI): 
NEXT DATA 31+28:31;30;31, 
30 +31 °31530.31+30,31 
RETURN 


REM *** PLAY 


HOME : VTAB 3: HTAB 11: 
"*##* BIORHYTHM ##*" 


PRINT 
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3015 


INPUT "WHAT IS YOUR NAME? " 
iN 

PRINT : PRINT “WHAT IS YOUR 
BIRTHDATE? ": INPUT "MM+DD+ 
Y¥Y¥Y) "“SMeDe¥ 

IF M = 1 OR M 12 THEN PRINT 
"INCORRECT MONTH":ER = 1 

IF D << 1 OR D = 31 THEN PRINT 
"INCORRECT DAY":ER = 1 

IF ¥ 1900 OR ¥ 1999 THEN 
PRINT "INCORRECT YEAR":SER = 

1 

IF ER THEN ER = @: GOTO 302 
"4 

PRINT : PRINT "WHAT IS THE 
START DATE?T": INPUT "MM+DD+¥ 
YYY "sM1 +DO+V¥1 

IF Mi «= 1 OR Mi 12 THEN PRINT 
"INCORRECT MONTH":ER = 1 

IF D® < 1 OR D@ = 31 THEN PRINT 
“INCORRECT DAY":ER = 1 

IF Yl “© 19800 THEN PRINT "I 
NCORRECT YEAR":ER = 1 

IF ER THEN ER = @: GOTO 303 
a 

PRINT =: INPUT "HOW MANY DAY 
S? "$22 IF 2 * 1 OR 2 < } INT 
(Z) THEN 3040 
Woe= DO:W1i = Mi:rW2 = Yi:W3 = 


i. 


J = ACM) + Dz:D1 = 365 - J + 
(CJ = 6@) AND (Y¥ / 4 = INT 
(Y / 4))):D2 = 365 * (YLT - { 

Y + 1)):E = @: FOR T = Y + 1 


TO Y1 - 1:—E = E + (T / 4 = 
INT (T / 4)): NEAT T 
D3 = AC(M1) + DO:D3 = D3 + (¢ 


Y / @ = INT (¥ / 4)) AND (D 
3 > = 6@)):D4 = Di + D2 + D 
3 + E 


IF D4 < @ THEN PRINT "STAR 
T DATE BEFORE BIRTH DATE": GOTO 
3030 


40 


3104 


3108 


3112 


3116 


3117 


3118 


3120 


Pi = D4 - INT (D4 / 23) * 2 
- = D4 - INT (D4 / 28) * 2 
et = D4 - INT (D4 / 33) * 3 
IF ANS$ = "P" THEN PRINT 


(4) "PR#"SLOT: PRINT CHR (9 
) "i SAN" 

PRINT TAB(C 22) "BIORHYTHM C 
YCLES": PRINT TAB( 25)"--- 
FOR ---": PRINT TABC 22 + ( 
17 - LEN (N#)) / 2)N$ 

PRINT TAB( 25)5 MIDS (C$+3 

* M - 293)" "DBD" + "VY: PRINT 


PRINT MIDS (C#$*3 * M1 - 2 


$ 

3)" uy 7" (-) ( 
Q) (+)" 

FOR T = 1 TO 2 
P2 = Pl + T - INT (C(P1 + T) 
/ 23) * 23 
E2 = El + T - j&INT (C(E1 + T) 
/ 28) * 28 
C2 = Ci + T - INT ((C1 + T) 
/ 33) * 33 
P3 = INT (11.5 + 10 * SIN 
(P2 * 6.28318 / 23)) 
E3 = INT (11.5 + 10 * SIN 
(E2 * 6.28318 / 28)) 
C3 = INT (11.5 + 10 * SIN 
(C2 * 6.28318 / 33)) 

FOR I = i TO 21:A$(I) = " '" 
: NEXT 
A$(P3) = "P" 

IF A$(E3) > " " THEN 318 
Q 
A$(E3) = "E" 

IF A$(C3) <¢ > " " THEN 318 


8 


A$(C3) = "C": GOTO 3192 
A$(E3) = "*": GOTO 3168 
AS$(C3) = "*": GOTO 3192 
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3260 
3300 


3990 


IF A$(11) = " " THEN A$(11) 
= it I iT 

IF D®@ = 1 THEN PRINT MIDS 
(C$s3 * M1 - 2:3)" "ss GOTO 


3208 

PRINT " "5 

PRINT RIGHTS (" " + STR# 
(DO) +2)" "3: FOR 


T= 1 TO 21: PRINT AS$(I) 5s NEXT 
PRINT 
IF Yl - (¢€ INT (¥1 / @)) # 
4) = @ THEN BC2) = 29 
D@ = D@ + 1: IF DO B(M1) THEN 
D@ = 1:M1 = Mi + 1 
IF Mi = 12 THEN M1 = 1:Y1 = 


IF ANSS = "P" THEN PRINT CHRS 
(G4) "PR#O" 
RETURN 


NYS 
1 oN 
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Connect Five 


This classic game requires that you connect five squares either vertically, 
horizontally, or diagonally. Though not much of a challenge, the game is good 
for your ego. The graphics are fairly basic, so let’s take a closer look. First, 
type: LIST-2025. Experiment with the color, the line length and location, and 
the FOR statement. After you are done analyzing those lines, type: LIST -3050. 
Most noteworthy are lines 3010-3021. Line 3010 asks you to input the desired 
column NUMBER, but the variable (ANS$) is for numbers and characters. Any 
variable that ends with a dollar-sign ($) is called a string and is not capable of 
having any mathematical functions performed upon it. The reason the variable 
in 3010 is a string variable is that the person choosing the column number 
might accidentally hit a letter instead of a number. If the variable in 3010 was 
ANS, and an I were input in place of 1, the program would ‘crash’. Each 
character has a corresponding numeric value, so a letter can be redefined as a 
numeric. Line 3020 converts the string ANS$ to the numeric ANS. Line 3021 
then makes mathematical comparisons based upon the input. You might want 


to experiment with the VAL command to see how computers alphabetize lists 
of words. 
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1045 
1030 


1060 


1990 
2000 
2001 
2002 
2010 
2011 
2012 
2013 
2014 


REM KHER KKKHERHKKKEREKES 
REM *** HHH 
REM **%* CONNECT FIVE #*+* 
REM *** HK 
REM HHH KKKHEHREEEHKKKEEHEX 
REM 
REM 
GOSUB 1000: REM INSTS 
GOSUB 2000: REM SETUP 
GOSUB 3000: REM PLAY! 
GOSUB 4000: REM !END! 
END 

REM **%* INSTS 

TEAT NORMAL HOME 

VTAB 3: HTAB 10: PRINT 


CONNECT FIVE **#" 


VTAB 7: 


PRINT 


"4% 


"THE OBJECT O 


F THE GAME IS TO GET FIVE OF 


YOUR 


PIECES IN A ROW, 


EITHER 


VERTICALLY OR HORIZONTALLY," 
PRINT 


PRINT 


TO 


MOVE » 


"WHEN IT 15 YOUR TURN 
ENTER THE NUMBER O 


F THE COLUMN YOU WISH TO DRO 


P 


YOUR PIECE INTO. " 


PRINT 


PRINT 
LL TAKE A TURN. 


"AFTER YOU MOVE,» 


I WI 


THE FIRS 


T ONE TO CONNECT FIVE IS THE 


VTAB 


WINNER, " 
22: INPUT 


sANS$ 
RETURN 


REM 


GR 


COLORS= 
FOR I 


*#**% SETUP 


"4 
®@ TO 35 


HLIN @+35 AT I 
NEAT 
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“PRESS RETUR 
N WHEN READY TO CONTINUE 


2015 
£016 
2017 


2018 
2020 
2021 
2022 
2023 
2024 


2025 
2030 


O40 


3030 


COLOR= 15 

FOR I = @ TO 35 STEP 93 

HLIN @935 AT I: VLIN 0235 AT 

I 

NEXT I 

COLOR= 6G 

VYVLIN 35°39 AT 3 

HLIN 2:4 AT 39 

PLOT 2:36 

HLIN 7+9 AT 353: HLIN 7:9 AT 
37: HLIN 7:99 AT 39 

PLOT 9+s3G6: PLOT 7:38 

HLIN 12°14 AT 35: HLIN 1251 
4 AT 37: HLIN 12°14 AT 39: PLOT 
14+36: PLOT 14+38: HLIN 17 51 
J AT 37: YLIN 35939 AT 19: VYLIN 


39*36 AT 17 


HLIN 22+24 AT 35: HLIN 22 52 
4 AT 37: HLIN 22924 AT 39: PLOT 
22936: PLOT 24/38: HLIN 27 52 
J AT 35: HLIN 2729 AT 37: HLIN 
2/»29 AT 39 

PLOT 27:38: PLOT 2938: PLOT 
2/36: HLIN 32+*34 AT 35: PLOT 
34°36: VYLIN 37°39 AT 33 

DEF FN C(K) = (KK - 1) * 3 + 
1 

DEF FN P(X) = (A - 1) * 3 + 
9) 

RETURN 

REM **% PLAY 

HOME :PL = i: INPUT "YOUR M 
OVE (COLUMN 1-7) "SANSS 
ANS = VAL (ANS$) 

IF ANS < 1 OR ANS => 7 OR AN 
=) INT (ANS) THEN HOME 

PRINT "PLEASE SELECT A NUM 
BER FROM 1 TO 7 : ": FOR A = 

1 TO 1000: NEXT A: GOTO 30190 

AX = FN CCANS) 
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3840 


3100 


3105 
3110 
3120 


31390 


3135 
3140 
3150 


3160 


3170 
A000 
4001 
4002 


IF SCRNC AxK+1) 
HOME PRINT 
S FULLsz+s. “8 
O02: NEXT 
FOR J = 
P(PL)sJA 
JX TO JA 
AT K: 
IF J = 
LA = 


@ THEN 
"THAT COLUMN I 
FOR A = 1 TO 180 
GOTO 3010 
TO 7: COLOR= FN 
FN C(J): FOR K = 
3: HLIN AX SAX + 3 
NEXT K 
7 THEN 3080 
FN C(J + 1)s 


+ it — 2-PD 


IF SCRN¢ 


AX +L) 12 THEN J = 7: GOTO 
3880 

COLOR= @ 

FOR K = JA TO JA + 3: HLIN 
AXsAX + 3 AT Ke NEAT K 

NEAT J 

FOR I = 1 TO 7: FOR J = 1 TO 
3: FOR K = J TO J + G4:IX = FN 
CCI) sKX = FN CCK) 

IF SCRNC Ik +KX) FN P 
(PL) THEN K = J + 4: NEXT Ks 
GOTO 3110 

NEXT K: RETURN 

NEAT Jol 

FOR J = 1 TO 7: FOR I = 1 TO 
3: FOR K = I TO I + 4:KX = FN 
CCK) sJX = FN CCI) 

IF SCRNC KAI) FN P 
(PL) THEN K = I + 4: NEXT Ks 
GOTO 314¢@ 

NEXT K: RETURN 

NEAT IoJ 

IF PL = 2 THEN PL = 1: GOTO 
30190 
PL = 2:ANS = INT ( RND (1) * 
7) + TtAK = FN CCANS): IF SCRN( 
AX+1l) < <- THEN 3160 

GOTO 30850 

REM #**%* ALL DONE 
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401@ HOME : PRINT =: PRINT "THE G 
AME IS OVER !!!"s: PRINT "THE 
WINNER IS eee "5 
4020 IF PL = 1 THEN PRINT “YOU 
fii": RETURN 
4030 PRINT "ME !!!": RETURN 
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This is definitely a thinking man’s game. You are given clues in an attempt to 
guess a three-number puzzle. Load the program. FN R(10) generates a random 
integer between 0 and 9. How and why will be discussed elsewhere in the 
book, for now, just accept that this is true. N1 is any digit between 0 and 9. N2 
is any digit between 0 and 9 exept N2 cannot equal N1. N3 is also a number 
between 0 and 9. N3 cannot be equal to N2 or N1. The result is that the three- 
digit number represented by N1/N2/N3 will be a random three-digit number 
comprised of three different digits. Lines 3035-3037 separate your single three- 
digit guess into three separate guesses (G1, G2, and G3). Here’s how. When 
any number is converted to an integer, the portion of the number which is to 
the right of the decimal point is truncated (cut off). Here are a few examples: 
INT 3.4 is 3, INT 9.989 is 9, INT 562.3 is 562, INT 0.3 is 0. Taking line 3035, 
assume that the guess was 567. 567 divided by 100 is 5.67. When converted to 
an INTeger, 5.67 becomes 5 (G1=5). Line 3036 takes 567, subtracts (5 
multiplied by 100), divides the result (67) by 10, and converts 6.7 into the 
INTeger. Now G1=5 and G2=6. Lastly, 3037 takes 567 (ANS) and sutracts 
from it (5 (G1) times 100 plus 6 (G2) times 10) or 560. The result (567 - 560) is 
now stored in G3. So now G1=5, G2=6, and G3=7. Statistically, even when 
you are unlucky, the solution can be derived in no more than seven guesses. 
You've been challenged, now go to it! 
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12 REM KEHHKHKHHKEKHEKKHKHKS 

11 REM *#%# He % 

iZ REM *## DIGITS HH % 

13 REM *#+# % & % 

14 REM RHE KHEHHEHRKKEHRKEREES 

iS REM 

i6 REM 

“®@ GOSUB 1000: REM INSTS 

30 GOSUB 2000: REM SETUP 

40 GOSUB 3000: REM PLAY! 

"0 GOSUB 4000: REM !END! 

6G@ END 

1000 : 

1001 REM *** INSTS 

ig@a@2 : 

1010 TEXT NORMAL HOME 

i920 YVTAB 2: HTAB 13: PRINT "*#* 
DIGITS ***" 

1930 VYVTAB 3 

1031 PRINT "I WILL THINK OF A NU 
MBER BETWEEN @12 AND987. EA 
CH DIGIT IN THE NUMBER WILL 
BE DIFFERENT FROM THE OTHER 
TWO," 

1035 PRINT 

1940 PRINT “THE OBJECT OF THE GA 
ME IS TO GUESS THE SOLUTION 

IN AS FEW TRIES AS POSSIBLE 

i950 YTAB 23: INPUT "HIT RETURN 
WHEN READY TO CONTINUE "SA 
NS$ 

1060 HOME VTAB 2: HTAB 13: PRINT 
"*#% DIGITS **##": VTAB 5 

1070 PRINT “AFTER EACH GUESS, I 
WILL PRINT OUT A HINT LIN 
E AS FOLLOWS : " 

1075 PRINT 

1080 PRINT "FOR EACH DIGIT CORR 
ECT AND IN THE CORRECT 
POSITION,» I WILL PRINT AN ‘’X 

1085 PRINT 


D0 


109@ 


1a@95 
1100 


1105 
11190 


1115 
1120 


1130 
1140 
1145 
1150 


1160 


1165 
1170 


1171 
1175 


1176 
1180 


1185 


119¢@ 


1195 


1200 


PRINT "FOR EACH DIGIT CORR 
ECT BUT NOT IN THE CORRECT 
POSITION» I WILL PRINT AN ‘0 

PRINT 

PRINT ":>FOR EACH TOTALLY IN 
CORRECT DIGIT» I WILL PRI 
NT & fu, Th 

PRINT 

PRINT "PLAY WILL CONTINUE U 
NTIL YOU GUESS THE NUMBER, 

TO QUIT EARLY» SIMPLY HIT T 
HE RETURN KEY FOR YOUR GUES 
Ss," 

VTAB 23 

INPUT "HIT RETURN WHEN READ 


Y TO CONTINUE : "“sSANS$ 


HOME VTAB G6 
PRINT "HERE IS A TABLE TO H 
ELP YOU UNDERSTAND THE INST 
RUCTIONS,." 

PRINT : PRINT 

PRINT "ANSWER GUESS 

HINT LINE " 

PRINT "“-------------------- 

PRINT 

PRINT " @65 703 
g-- 

PRINT 

PRINT “ S62 463 
K-- 

PRINT 

PRINT " 918 890 
OO-": PRINT 

PRINT " 39@ 305 
XO-": PRINT 

PRINT "“ 271 Veal 
AOO": PRINT 

PRINT “ 425 780 
---": PRINT 

INPUT "PRESS RETURN WHEN RE 


ADY TO CONTINUE =: "“sANS$ 


1 


1990 
2800 
2001 
2002 
2010 


2020 


2021 
2022 
2990 
3000 
3001 
3002 
3010 
3020 
3030 


3031 


3832 


3839 
3036 


3037 


3040 


3050 
3051 


RETURN 

REM *#*%* SETUP 

DEF FN R(X) = INT 
i) * X 
Ni = FN R(10) 

N2 = FN R(10): 

2021 
N3 = FN R(1@): 


N3 = Ne THEN 
RETURN 


2022 


REM **% PLAY 


HOME : WTAB 


"##% DIGITS *###": 


PRINT "OKAY 


PRINT "TYPE 


3: HTAB 13: 
VTAB 7 


( RND ¢ 


, I’VE GOT A NUM 

BER..«-+": PRINT 
INPUT "WHAT IS YOUR 
"SANS$: IF ANSS = 
IF LEN (ANS$) 


GUESS? 
" THEN 
3 THEN 


ONLY THREE DIGI 


TS PLEASE": GOTO 3030 
ANS = WAL (ANS$): IF ANS 
@ OR ANS = 999 THEN PRINT " 


TYPE ONLY THREE DIGITS PLEAS 
E": GOTO 3030 
Gi = INT (ANS / 100) 

ANS - Gl * 100) 


G2 = INT (¢ 
10) 


G3 = ANS - (Gl * 100 + G2 *# 


10) 

IF Gi = Ge 
= G3 THEN 
E DIFFERENT 
GOTO 3030 
CP = @:CD = 
IF Gil = Nil 


IF G2 = N2 


IF G3 = NB 


OR Gi = 


G3 OR G2 


PRINT "TYPE THRE 
DIGITS PLEASE,.": 


@:MI = 
THEN CP 


THEN CP 


THEN CP 


"4 


= CP + 1 
= CP + 1 


= CP + 1 


2 


IF N2 = Ni THEN 


IF N3 = Ni OR 


PRINT 


RETURN 


/ 


4020 


4399¢ 


IF Gi = N2 OR Gi = NO THEN 
CD = CD + il 

IF G2 = Ni OR G2 = N3 THEN 
CD = cD + il 

IF G3 = Ni OR G3 = N2 THEN 
CD = CD + l 
MI = 3 - CP - CD 

PRINT "FOR YOUR GUESS OF "G 
15G25G3"» I HINT “3 

IF CP * @ THEN FOR I = 1 TO 
CP: PRINT "K"5: NEAT 

IF CD > @® THEN FOR I = 1 TO 
CD: PRINT "O"5: NEAT 

IF MI > @ THEN FOR I = 1 TO 
MI: PRINT "-"3: NEXT 

PRINT PRINT sNG = NG + 1: 

IF CP = 3 THEN RETURN 

GOTO 3030 

REM **%* END 

PRINT "THE GAME IS OVER ..,. 
": PRINT 

IF CP = 3 THEN PRINT “YOU 
GUESSED IT IN ONLY "NG" TRIE 
5 ! " 

IF CP ¢< 3 THEN PRINT “THE 
CORRECT ANSWER WAS" NisN2s5N3 
RETURN 


> 3 


) \e 


a 
, 


i; 


> 
/, | 


7 


To play this game, you should have paper and pencil. You travel through an 
unseen maze of caverns searching for the Grue. As any good spelunker will 
tell you, drawing a map will prevent you from making the same mistakes over 
and over again. In other words, draw a map as you go along. There are no 
color graphics used in this program, but there are some other interesting 
features. You may ask, “How come I get different responses each time I run 
the program?” and here’s why. Lines 2100 through 2130 assign certain 
variables a RANDOM value. Beginning at 3020, this becomes relevant. One of 
four messages is printed. Which one it is, depends on the RaNDom values of 
the four variables (EX, P1, B1, GU). Line 3026 reveals that on each move you 
have a one in fifteen chance of experiencing an earthquake. To paraphrase line 
3026: if a RaNDom INTeger between 0 and 14 happens to be equal to 4, then 
PRINT (BELL$ causes the computer to emit a ringing sound) <<< 
EARTHQUAKE >>>. Line 3030 really begins each turn. As you go through 
the program, you will note that the execution of most of the lines depends, 
either directly or indirectly, on the value of a randomly generated integer. 


D5 


1a REM HEEHKEEKKEKKEHKEKEKEE 


11 REM **+# HH % 
12 REM **+%* GRUE STEW **+%# 
i3 REM *** HH 


14 REM HHH HHHKKKKEEHHEHRES 
iS REM 

iG REM 

2@ GOSUB 1000: REM INSTS 

30 GOSUB 2000: REM SETUP 

42 GOSUB 3000: REM PLAY! 

2@ GOSUB 4800: REM !END! 


L 


G6@ END 

igaa : 

1901 REM +*** INSTS 7 
igo? : kt 


i@i®@ TEXT : NORMAL : HOME 
ig2@ VTAB 3: HTAB 12: PRINT "*** 
GRUE STEW **##" 

1030 YWTAB 7: PRINT "IN THIS GAME 
> YOU ARE A BRAVE HUNTER. 
YOU ARE ALSO VERY HUNGRY. § 
QO, YOU DECIDE TO GO ‘GR 
UE’ HUNTING. A GRUE+ ASEVER 
YONE KNOWS, IS THE KEY INGRE 
DIENT INGRUE STEW." 

19040 PRINT =: PRINT "YOU ARE GOIN 
G TO ENTER A SERIES OF 
UNDERGROUND CAVES» IN SEARCH 

OF THE STEWBASE,» THE GRUE." 


1050 PRINT =: PRINT “IF YOU CAN B 
AG A GRUE» AND GET OUT OF 
THE CAVES, THEN YOU WILL GET 
YOUR STEW (AND WIN THE GAM 
E!l)," 

1060 VTAB 23: INPUT "HIT RETURN 
WHEN READY TO CONTINUE =: "3A 
NS$ 

1070 HOME : VTAB 3: HTAB 12: PRINT 
"#ee GRUE STEW #*#*": YTAB 7 


D6 


1080 


1090 


1095 


1100 


1120 


1130 


1140 


1160 


11790 


PRINT "ONCE IN THE MAZE? YO 
U CAN EITHER MOVE TO A DIF 
FERENT CAVERN OR SHOOT AN AR 
ROW INTO AN ADJOINING CAVE»: 
IN HOPES OF HITTING A FE 
ROCIOUS GRUE. “ 

PRINT : PRINT "I WILL ASK: 
MOYE OR SHOOT?:+ AND YOU MUST 
REPLY WITH ‘M’ FOR MOVE OR ‘ 
S’ FOR SHOOT." 

PRINT : PRINT “IF YOU DECID 
E TO MOVE, YOU CAN DO SO IN 
ANY OF THE FOUR COMPASS DIRE 
CTIONS. WHENASKED WHICH WAY: 

ENTER ‘N’ FOR NORTHs» ‘Sg’ 
FOR SOUTH: ‘W’ FOR WEST» OR 
’E’ FOR EAST." 

VTAB 23: INPUT "HIT RETURN 
WHEN READY TO CONTINUE : "5A 
NS 

HOME : YTAB 3: HTAB 12: PRINT 
"##*% GRUE STEW **#*": YTAB 7 

PRINT "IF YOU DECIDE TO SHO 
OT, YOU WILL BE ASKED: §S 
HOOT WHICH WAY?, AND YOU MUS 
T REPLY: ‘’N’ FOR NORTH, ‘5S 
‘ FOR SOUTH» ‘’E’FOR EAST: ‘W 
‘ FOR WEST." 

PRINT : PRINT "IF YOU HIT T 
HE GRUE, YOU WILL BE TOLD» 
AND YOU MUST TRY TO EXIT THE 

CAVES," 

PRINT : PRINT "BUT... THERE 
ARE OTHER THINGS IN THE 
CAYES. THERE ARE GIANT BATS 

THAT WILL PICK YOU UP AND 
DROP YOU ELSEWHERE. " 

VTAB 23: INPUT “HIT RETURN 
WHEN READY TO CONTINUE =: "5A 
NS$ 

HOME : YVTAB 3: HTAB 12: PRINT 
"*ee GRUE STEW *«*#*": VTAB 7 


D7 


1180 


1190 


1200 


2021 


2022 


2023 


2024 


PRINT "THERE ARE BOTTOMLESS 

PITS. IF YOU FALL INTO ONE 

OF THESE YOU’LL NEVER GET O 
UT!" 

PRINT PRINT "OF COURSE TH 


ERE IS THE GRUE HIMSELF. 
THOUGH NOT AN AGGRESSIVE CRE 


ATURE» HE WILL EAT YOU IF 
YOU COME TOO CLOSE." 
PRINT PRINT “AND THERE AR 


E EARTHQUAKES THAT MOVE 
THINGS AROUND IN THE CAVES ( 


BATS» PITS» THE GRUE+ AND TH 
E EXIT!)." 

VTAB 23: INPUT “HIT RETURN 
WHEN READY TO CONTINUE "SA 
NSS 

RETURN 

REM **%* SETUP 
BELL = CHR (7) 

DIM RO$(20) »sTR(2014) 

FOR I = 1 TO 20: READ ROS(I 
): NEXT I 

DATA YOU ARE IN A SMALL 
ROOM WITH ROCKS AND DEBRIS 
SCATTERED EVERYWHERE. 

DATA DUCK YOUR HEAD IN 

HEREs AS LARGE ROCK STALA 


CTITES HANG FROM THE CEILING 


DATA THE ROOM HERE SLOP 


ES DOWNWARD. 


DATA THIS ROOM [5 VERY §& 
MALLs BUT I THINK WE CAN MAK 
E IT THROUGH OK. 

DATA THIS I5 A VERY LAR 
GE ROOM WITH A LARGE BOULDE 
R IN THE CENTER OF IT. 

DATA THIS IS THE CENTER 

A NARROW PASSAGE 
ECTS OTHER ROOMS. 


OF 
THAT CONN 


58 


£026 


2027 


2028 


2036 


2037 


2038 


DATA THIS PASSAGE [5 VERY 
LOWs BUT IF WE CRAWL WE 
CAN MAKE IT. 

DATA THIS 1S A VERY DIRTY 
ROOMS IT HAS BEEN PARTIALL 
Y FILLED IN BY THE LAST EART 
H- QUAKE THAT HIT. 

DATA THIS ROOM IS ABOUT 
AVERAGE SIZE; BUT IS FILLED 
WITH A PUNGENT AROMA THAT I 
S VYERYNAUSEATING. 

DATA YOU ARE IN A SMALL 
SSAGEWAY. 
DATA YOU 
SSAGEWAY. 
DATA YOU 
SSAGEWAY,. 
DATA YOU 
SSAGEWAY. 
DATA YOU 
SSAGEWAY, 
DATA YOU 
SSAGEWAY. 
DATA A SMALL HOLE IN TH 
E CEILING LETS LIGHT FROM O 
UTSIDE THROUGH ... BUT YOU W 
OULD NEVER FIT THROUGH IT. 
DATA SOMEONE HAS LEFT AL 
IGHTED TORCH ON THE WALL AND 

IT ILLUMINATES YOUR PASSAGE 
DATA A RIVULET OF WATER SL 
OWLY TRICKLES FROM A HOLE IN 
THE WALL. 

DATA A SMALL HOLE TO YOUR 
LEFT ATTRACTS YOUR ATTENTION 
+ BUT IT IS TOO SMALL TO BE 
OF ANY CONCERN, 

DATA YOU ARE IN A LOW 
DEPRESSION IN THE CENTE 
R OF A MEDIUM-SIZED ROOM. 

FOR I = 1 TO 2@0:F = @ 


PA 


ARE IN A SMALL PA 


ARE IN A SMALL PA 


ARE IN A SMALL PA 


ARE IN A SMALL PA 


ARE IN A SMALL PA 
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FOR J = 1 TO 4: 
F = F + TR¢CI+J): 
NOT F THEN 2055 
NEXT I 
YO = INT ( 
1 
GU 
1 


GOSUB 2955: 
NEAT J: IF 


RND (1) * 20) + 


INT ¢( RND (1) * 20) + 


THEN 
INT ¢ 


GU = - 1 


IF GF 
= RND (1) * 20) + 


Vv 
no 


1 
Bi = 
1 
Bz = 
1 
Pi = 
i 
P2 = 
1 
RETURN 
IF INT ¢ RND 
2 OR TR(IsJ) 
RO = INT ( 
i: IF RO = I THEN 2955 
DI = INT ( RND (1) * 4@) 
IF TR(RO+DI) THEN 2955 
TR(TsJ) = RO:TR(RODI) = 1 
RETURN 


INT ¢( RND (1) * 20) + 


INT ¢( RND (1) * 20) + 


INT ( RND (1) * 20) + 


INT ¢( RND (1) * 20) + 


(1) * 3) + 1 = 
THEN RETURN 


RND (1) * 20) + 


+ | 


REM *#%* PLAY 


HOME : VTAB 3: 
"eee GRUE STEW *#**": YTAB 7 

PRINT : PRINT RO#(YO): FOR 
I = 1 TO 1@:XX = PEEK ( - 1 
6336): NEXT I 

FOR I = 1 TO 4:CO = 

IF CO = EX THEN 
$"EXIT NEARBY 4+." 

IF CO = GU THEN 
$"I SMELL THE GRUE 


HTAB 12: PRINT 


TRCYOs1 
PRINT BELL 


PRINT BELL 
Pye 
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3023 


3024 


3029 
3026 


3030 


3035 


3040 


3045 


IF CO = Bi OR CO = Be THEN 
PRINT BELL#"FLAP.++ FLAP... 
FLAP see” 

IF CO = Pi OR CO = P2 THEN 
PRINT BELL#$"I FEEL A DRAFT 
Pir" 

NEXT 

IF INT ¢( RND (1) * 15) = 4 
THEN PRINT BELL#"<<< EARTH 
QUAKE 332": GOSUB 2105: GOTO 
3015 

PRINT =: INPUT "MOVE OR SHOO 
T? "SANS$: IF ANS# = "S" THEN 
3500 

IF ANS "M" THEN PRINT 
"TYPE IN ‘M’ OR ‘’S’eee": GOTO 
3830 

INPUT "WHICH WAY?" sSANS$: FOR 
I = 1 TO 4: IF ANS <= = MIDS 
("NESW"»I+1) THEN NEXT =: PRINT 
"ENTER ‘N’s ‘E’s “W's OR “5% 
"s GOTO 3030 

IF NOT TR(Y¥YOs+I) THEN PRINT 
BELL$"YOU CANNOT GO THAT WAY 
eee's GOTO 3O15 

PRINT "OK «ee "YO = TRIYOs] 


IF YO = EX THEN WL = @: RETURN 


| 
NN 
—< 
O 
" 


GU THEN WL 1: RETURN 


IF YO = Pl OR YO = Pil THEN 
WL = 2: RETURN 

IF YO «< +} Bil AND YO B 
= THEN 3015 

PRINT "BATS HAVE YOU !!!": PRINT 


"THEY’RE LIFTING YOU UP !!I" 
: PRINT "QHHHHH»s WHERE ARE W 
E NOW ???"sYO = INT (¢ RND ( 
1) * 20) + 1: GOTO 3015 
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4015 


Aa20 


A025 


INPUT "SHOOT WHICH WAY? "3A 
NSS: FOR I = 1 TO 4: IF ANS$ 
* MIDS ("NESW"+Is1) THEN 
NEAT = PRINT "TYPE IN ‘N%s 
"E’s “Ws OR “S/°"s GOTO 3030 


IF NOT TR(YO+I) THEN PRINT 
BELLS"CLUNK!": PRINT "THE AR 
ROW BOUNCED OFF THE WALL.": GOTO 
30135 


IF TR(Y¥O+T) = GU THEN PRINT 
BELLS$BELL$"OUCH !!!"s: PRINT 
"YOU BAGGED A GRUE !!!'"s PRINT 
"NOW TO FIND THE WAY OUT «es 
"GF = 1:GU = - 1: GOTO 3@1 
‘) 

PRINT BELL$S"THE ARROW MISSE 
D THE GRUE !!!": GOTO 3015 

REM #*#%* END 

IF WL = @ AND GF THEN PRINT 


"YOU HAVE REACHED THE EXIT W 
ITH YOUR": PRINT "“GRUE !!! ¥ 
OU WILL HAVYE A FILLING SUPPE 
R":s PRINT "TONIGHT FOR SURE 
bliss: RETURN 

IF WL = @ THEN PRINT "YOU 
HAYE REACHED THE EXIT WITHOU 
T": PRINT "ANY GRUE !!! YOU 
ARE SURE TO STARVE .."s: RETURN 


IF WL = 1 THEN PRINT "YOU 
BUMPED INTO THE GRUE !!!"s PRINT 
"HE ATE YOU BEFORE YOU COULD 

MOVE !'!'": RETURN 

IF WL = 2 THEN PRINT "YOU 
FELL INTO A PIT !!!"s: PRINT 
"YOU FELL A LOOOOOONG WAY .. 
©" RETURN 
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A clever premise overshadows an interesting game. The IRSman serves as an 
excellent mathematical teaching device, while being entertaining and 
challenging. Everyone wants to beat the IRS, now here’s your chance! To play, 
choose a number (we'll call it ‘X’), and the digits 1 through X will appear. Each 
time you remove a number from the list, all of the factors of that number 
(which are still on the list) go to the IRSman. The object is to garner as much 
money as possible, while being as stingy as possible with the IRSman. If you 
play the number 12, 1-2-3-4-5-6-7-8-9-10-11-12 will appear on the screen. If you 
begin play by selecting 12, the IRSman will get 6,2,4,3, and 1 (6x2=12, 

4x3 = 12, 1x12=12) for a score of 16 to your 12. The board will now look like 
this: 11109875. As you will note, the only remaining number on the list 
which has a factor, is 10 (the remaining factor is 5). Remember, to remove a 
dollar amount (a number) from the list, there must be a factor to go to the 
IRSman. When you remove 10 from the above example, the score will be 22 
(12+ 10) for you, and 21 (16+5) for the IRSman. But look . . . the list now 
reads: 11 9 8 7. None of these numbers has a factor left on the list, so they all 
revert to the IRSman. The final score would be 22 for you, and 56 
(21+11+9+8+7) for the IRSman. If you choose 6 before choosing 12, the 
IRSman scores for 3x2=6, (5 dollars) and 1x6 (1 dollar) for a total of 6 dollars 
for him and 6 dollars for you. The digits may only be used once, so 6,3,2, and 
1 are removed from the list. Now when you choose 12, the IRSman only gets 4 
dollars (4x3 =12). Now the score is 18 (6+ 12) for you, and 10 (6+4) for the 
IRSman. Note that 11 is stuck because the only factors of 11 are 11 and 1. Don’t 
waste the universal factor (1) on just any number. It should be used first, to 
remove the highest prime number from the list. A prime number is one that is 
only divisible by itself and 1. Examples are 1,2,3,5,7,11,13,17,19,23, etc. To 
circumvent the loss of 11, choose this number before choosing 6. There are 
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many ways to thwart the IRSman, but you must really try. Remember that all 
of the unused numbers (at the end of the game) are added to the score of the 
IRSman. The maximum score you can achieve when choosing 1 through 12, is 
48. 


10 REM HREEKHEKKHKEKHKKKHEKHEKKE 


11 REM *** KH 
if REM *** IRSMAN KX 
i3 REM *** HH 
14 REM KERR EKHKHEH HEHE KREKEE 
i5 REM 
iG REM 


20 GOSUB 1000: REM INSTS 
30 GOSUB 2000: REM SETUP 
40 GOSUB 3000: REM PLAY! 
22 GOSUB 4000: REM !END! 
6@ END 
1000 : 
i@@i REM *** INSTS 
1002 : 
1010 TEXT : NORMAL : HOME 
i@20 VTAB 2: HTAB 13: PRINT "#** 
IRSMAN **#*" 
103@ VTAB 3S: PRINT "THIS IS THE 
GAME OF IRSMAN. TO WIN» YOU 
TRY TO ACCUMULATE MORE MONEY 
THAN YOUR NEMESIS» THE IRS 
MAN," 
1933 PRINT 
1035 PRINT "GIVE ME A NUMBER BET 
WEEN 1 AND 3@,. I WILL D 
ISPLAY A CONSECUTIVE NUMBER 
STRING STARTING AT 1» AN 
D CONTINUING "4 
i936 PRINT "THROUGH TO THE NUMBE 
R YOU SELECTED. YOUWILL THE 
N CHOOSE HOW MUCH MONEY (WHI 
CH NUMBER) YOU WANT TO REMO 
VE FROM THE LIST." 
i@38 PRINT 
1040 PRINT "BUT+s AND HERE’S THE 
FUN PART» THE IRSMANGETS ALL 
OF THE REMAINING NUMBERS ON 
THE" 5 
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1042 


1043 


1066 
1070 


1080 


PRINT "LIST THAT ARE FACTOR 
S OF THE NUMBER YOU CHOSE. 
THAT IS HOW THE IRSMAN GETS 
HIS MONEY. IF YOU CHOOSE Gs 

FOR EXAMPLE » "4 

PRINT "THE IRSMAN GETS ALL 
OF THE REMAINING FACTORS 
OF G+ (POTENTIALLY 1:s2,% AND 
3)," 

PRINT : INPUT "PRESS RETURN 

WHEN READY TO CONTINUE =: "$ 
ANS$ 

TEAT NORMAL HOME 

VTAB 2: HTAB 13: PRINT "*** 

IRSMAN **##" 

VTAB S: PRINT "YOU CANNOT C 
HOOSE A NUMBER THAT HAS NO 
REMAINING FACTORS IN THE LIS 
Ts BECAUSE YOU MUST ALWAYS 
PAY THE IRS." 

PRINT 

PRINT "WHEN YOU CAN NO LONG 
ER REMOYE ANY OF THEREMAININ 
G NUMBERS FROM THE LIST» THE 

IRSMAN CLAIMS ALL OF THE 

UNUSED MONEY (NUMBERS) FO 
R HIMSELF." 

VTAB 23: INPUT "PRESS RETUR 
N WHEN READY TO CONTINUE =: " 
sANSS 

RETURN 


REM **%* SETUP 


DIM LI(3@): FOR I = 1 TO 5@ 
sLICI) = I: NEXT 

VTAB 23: CALL - 958 

PRINT CHR (7): INPUT "HOW 
MANY NUMBERS (1-58) IN THE 
LIST? "sANS$ 
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2025 


ANS = WAL (ANS): IF ANS 

1 OR ANS = 3@ OR ANS > INT 
(ANS) THEN VTAB 22: CALL - 
958: PRINT : PRINT "“s22 USE 

A NUMBER FROM 1 TO 30 223": FOR 
PA = 1 TO 2000: NEAT : GOTO 
2020 


NU = ANS 

RETURN 

REM *** PLAY! 

HOME : VTAB 3: HTAB 13: PRINT 
"#ee IRSMAN #884": PRINT 

PRINT =: PRINT “HERE I5 THE 
LIST : “s: FOR IT = 1 TO NU: IF 
LICI) THEN PRINT I" "5 

IF PEEK (36) 33 THEN PRINT 
NEAT I 

IF NU = 1 THEN PRINT : PRINT 
>: PRINT "“OOOOPS» YOU CAN‘T G 
ET ANYTHING... ":TA = 1:LI(1) 

= @: RETURN 

FOR I = 2 TO NU: IF NOT LI 
(I) THEN 3040 

-FOR J = 1 TO IT: IF NOT LI 
J) THEN 3035 

IF J = I THEN 3035 

IF LI(I) / J = INT (LIC) / 
J) THEN 3050 

NEXT J 

NEXT I: RETURN 

PRINT =: PRINT : PRINT "THE 
SCORE IS: IRSMAN: "TAs: PRINT 
it *YOU+* . uvYo 

U 

PRINT = INPUT "WHICH DO YOU 
WANT’? "sANSS 
ANS = VAL (CANS$): IF ANS < 

1 OR ANS = NU OR LICANS) = @ 
OR ANS > INT (ANS) THEN 


PRINT : PRINT "THAT IS NOT 
AYAILABLE !": GOTO 3060 
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3070 SC = @: IF AN = 1 THEN 3100 

3075 FOR I = 1 TO AN: IF LI(TI) = 
@ THEN 3090 

307G IF I = AN THEN 3092 

3080 IF AN / I = INT (AN / I) THEN 
SC = SC + I 

3090 NEXT I 

3100 IF SC = @ THEN PRINT : PRINT 
"YOU CAN’T HAVE IT. THAT LEA 
VES NOTHING FOR THE IRSMAN" 


GOTO 30190 
3105 LICAN) = @:Y0O0 = YO + AN:TA = 
TA + SC 


311@ FOR I = 1 TO AN: IF LI(T) 
@ THEN 3125 

3115 IF I = AN THEN 3125 

312@ IF AN / I = INT (AN / I) THEN 
LI(I) = @ 

3125 NEXT I 

3130 GOTO 30120 


4001 REM *#*#* END 


4010 PRINT : PRINT : PRINT “**% 
THE GAME IS OVER *###": PRINT 


4015 FOR I = 1 TO NU: IF LI(I) THEN 
TA = TA + LI(I) 

4AQiG NEXT 

4920 PRINT "THE IRSMAN: "TA 

4021 PRINT " YOu: "YO 

A4Qg?? PRINT “sssssss2e22eeeeeee2"s PRINT 


4025 IF TA YO THEN PRINT "THE 
IRSMAN IS THE WINNER !!!" 

4030 IF TA < YO THEN PRINT "YOU 
HAVE BEATEN THE IRSMAN !! 1" 


4035 IF TA = YO THEN PRINT “IT?S 
UNBELIEVABLE BUT ITS A TIE 
pigs 

4240 PRINT CHR (7)5 CHRS (7)5 CHRS 
(7) 

4990 RETURN 
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This game is designed to test your leadership ability. You are given a ten year 
reign, during which time you try to guide your kingdom towards health and 
prosperity. There are certain conditions which are beyond your control (such 
as the bountiful nature of the harvest), but try to do the best job possible. 
When the price of acreage is high, (25 or 26 bushels per acre), you may choose 
to become a land broker instead of a gentleman farmer. That is, you may sell 
all but one acre of land (you must keep 1), and hope the price of land drops 
the following year. If the price of land drops by 4 bushels (say, from 26 to 22), 
you have, in effect, made a 4 bushel per acre profit. When the price of land is 
low, (below 20 bushels for an acre), it is recommended that you buy as much 
land as possible, while retaining enough grain to feed your people and sow 
your fields. You can easily understand the program by manipulating the 
beginning values of the variables in line 2010 and changing some of the 
random number statements which are the unpredictable forces of nature. 


69 


10 REM HEHEHE KHEHEKRKKKHEKEHS 

ii REM HX KX 

if REM **%* KINGDOM HHH 

13 REM KH HHH 

14 REM KEKE KKHHRKHHHRKHKEHKEES 

is REM 

16 REM 

“@ GOSUB 1000: REM INSTS 

30 GOSUB 2000: REM SETUP 

40 GOSUB 3000: REM PLAY! 

20 GOSUB 4000: REM !END! 

6G@ END 

1000 : 

1001 REM **%#* INSTS 

1g@ae : 

1010 TEXT NORMAL HOME 

1020 YVTAB 3: HTAB 12: PRINT "*x* 

KINGDOM ***#" 

1030 VTAB 7: PRINT "THIS IS A SI 
MULATION OF THE COUNTRY OF 
SUMERTIA. YOU ARE THE SOVERE 
IGN RULER,» AND YOU WILL GOW 
ERN FOR 180 YEARS," 

1040 PRINT PRINT "THE DECISION 
S THAT YOU MAKE WILL AFFECT 
THE LIVES OF HUNDREDS OF PEO 
PLE. YOUR DICTATORIAL SKIL 
LS WILL BE RATED ONCE YOUR 

REIGN HAS ENDED," 

1050 PRINT PRINT "YOU WILL BE 
ASKED TO MAKE SEVERAL KEY 
DECISIONS EACH YEAR» WITH EA 
CH ONE BEINGEXPLAINED TO YOU 

1060 VTAB 23: INPUT "HIT RETURN 
WHEN READY TO CONTINUE "SA 
NS$ 

1990 RETURN 

2000 : 

2001 REM **%* SETUP 

2002 3: 

2010 P = 95:S = 2800:H = 3OOO:E = 
H - S:¥ = 3:A = H / ¥sI = Ss 
D= @:2 = 0:90 = 1 


3280 


3285 
3290 


3300 
3400 


34190 


3440 


DIM NUS(11): FOR J = 1 TO l 
1: READ NUS(J):s NEXT =: DATA 

FIRST »SECOND + THIRD +FOURTH oF 
IFTHsSIXTH +SEVENTH sEIGHTH NI 
NTH +TENTH sELEVENTH 

RETURN 

REM #*#%* PLAY 

HOME VTAB 3: HTAB ie: 
"*#* KINGDOM ###": YTAB 7 
2 = 2 + 1: PRINT =: PRINT “HA 
MURABI, I BEG TO REPORT TO ¥Y 
OU: “: PRINT =: PRINT "IN THE 

"NUS(Z)" YEAR» "D" PEOPLE " 
>: PRINT "STARVEDs "I" CAME T 
QO THE CITY." 

P= P + I: IF 9 = @ THEN P = 

INT (P / 2): PRINT PRINT 
"A HORRIBLE PLAGUE STRUCK !! 

! HALF OF YOUR PEOPLE PER 
ISHED. +++" 

PRINT 

PRINT “THE POPULATION I5 "“P 
". THE CITY OWNS ": PRINT A 
" ACRES. YOU HARVESTED "Y" 
BUSHELS": PRINT "PER ACRE. 
RATS ATE "E" BUSHELS.": PRINT 
"YOU HAVE "S" BUSHELS IN RES 
ERVE," 

IF 2&2 = 11 THEN 
C = INT (¢ RND 
C + 17 

PRINT =: PRINT "LAND IS TRAD 
ING AT "Y¥" BUSHELS PER ACRE. 
PRINT "HOW MANY ACRES DO 
YOU WISH TO BUY INPUT Q 


PRINT 


RETURN 
(1) * 10):Y = 


IF 9 < @ THEN PRINT "HAMUR 
ABI» YOU CANNOT DO THAT.": 
"IF YOU WISH TO SELL LAND» " 
PRINT "FIRST BUY @ ACRES," 
GOTO 34190 
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PRINT 


3470 


3505 


39540 


IF ¥Y * Q0 > & THEN PRINT "H 
AMURABI» THINK AGAIN! YOU O 
NLY HAVE": PRINT S" BUSHELS 
OF GRAIN.": GOTO 341 

IF 0 > @ THEN A = A + QOS = 
S - ¥ * O:C = @: GOTO 3500 

INPUT "HOW MANY ACRES DO YO 
U WISH TO SELL?" 5Q 

IF 0 < @ THEN PRINT "“HAMUR 
ABI, I CANNOT DO THAT. IF ¥Y 
OU": PRINT "DON’T WANT TO SE 
LL ANYTHING,s THEN": PRINT "S 
ELL @ ACRES.": GOTO 3460 

IF (@ A) THEN PRINT "HAM 
URABI» YOU ONLY OWN "QA" ACRE 
Geeee"t GOTO 3460 
A=A - O:5 = &§ + ¥ * O:C = 
iy 

PRINT : PRINT "OF THE "S" 68 
USHELS REMAINING> HOW MANY": 

PRINT "DO YOU WISH TO FEED 
YOUR PEOPLE:": INPUT Q 

IF 9 < 1 THEN PRINT "HAMUR 
ABI» THE PEOPLE WILL STARVE 
Pili": PRINT "YOU MUST FEED T 
HEM SOMETHING.": GOTO 3500 

IF 0 > §& THEN PRINT "HAMUR 
ABI,» YOU ONLY OWN "S" BUSHEL 
S .+": GOTO 3500 
S =§ - 0:0 = 1 

PRINT :s PRINT "OF THE "A" @ 


CRES YOU NOW OWN, HOW": INPUT 


"MANY DO YOU WISH TO PLANT W 
ITH SEED? "sD 

IF D < 1 THEN PRINT “HAMUR 
ABI,» YOU MUST PLANT SOMETHIN 
G SO": PRINT "THAT THERE WIL 
L BE FOOD FOR NEXT YEAR... " 
: GOTO 3530 

IF (D > A) THEN PRINT "YOU 
ONLY HAVE "A" ACRES.": GOTO 
3930 
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3545 IF D / 2 > S THEN PRINT “H 
AMURABI» THAT IS TOO MUCH TO 
PLANT..«.": GOTO 35390 

3550 IF D > 10 * P THEN PRINT " 
YOU CAN ONLY FORCE ONE PERSO 
N TO “s: PRINT "WORK TEN ACRE 
S OF LAND.": PRINT "YOUR POP 
ULATION OF "P" ISN‘T BIG ENO 
UGH.": GOTO 3530 

goose S$ = § - INT (D / 2):C = INT 
( RND (1) * 3) + 1 


3600 Y = C:H = D * YrE = @:C = INT 
( RND (1) * 3) + 1d: IF INT 
(C / 2) * 2 = C THEN E = INT 
(S / C) 

36108 5 = § - E + H:C = INT (¢ RND 
(1) * 3) + i:1T = INT (C *# ( 
20 * A + GS) / P / 100 + 1)5C 
= INT (9 / 20):Q = INT (1 


0 * (2 * RRND (1) - .3)): TF 
P C THEN D = @: GOTO 3010 

3615 D = P - Cs: IF D »30 * P THEN 
3630 

362@ Pl = ((2 - 1) * Pl + D * 100 

/ P) / @:P = C:D1 = Di + Ds 
GOTO 3019 

363@ PRINT : PRINT “YOU STARVED 
"D" PEOPLE IN ONE YEAR !": PRINT 
"YOU HAYE DONE SUCH A MISERA 
BLE JOB": PRINT "THAT YOU HA 
VE BEEN OVERTHROWN": PRINT “ 
AND REMOVED FROM OFFICE !!!" 
cWL = 1: RETURN 

4000 : 

4001 REM **%* END 

AQae : 

4005 IF WL THEN RETURN 

4010 PRINT : PRINT : PRINT “IN ¥ 
OUR 10 YEARS OF RULE» "P1i"2 
": PRINT “OF THE POPULATION 
STARVED PER YEAR,» ON": PRINT 
"THE AVERAGE.": PRINT "A TOT 
AL OF "Di" PEOPLE DIED. ":L = 
A / P 


le, 


4015 
4020 


A030 


A033 


AD40 


AQ45 


PRINT 
PRINT "YOU STARTED WITH 10 
ACRES PER PERSON» AND ENDE 


D WITH "L" ACRES PER PER 
SON !t"% 

IF Pil 33 OR L © 7 THEN PRINT 
"YOU ARE A DISGRACE!!! THE 


PEOPLE HAVE EXILED YOU TO A 
REMOTE ISLAND.": RETURN 
IF Pil = 18 OR L < 9 THEN PRINT 
"YOU RULE LIKE THE AYATOLLAH 
! MOST OF YOUR SUBJECTS W 
OULD DANCE AT YOUR FUN 
ERAL!": RETURN 
IF Pl +? 3 OR L << 18 THEN PRINT 
"YOU COULD HAVE DONE BETTER. 
"INT (P * .8 *® RRND (1))" 
PEOPLE": PRINT "WOULD LOVE T 
O SEE YOU ASSASSINATED!!!"s: RETURN 
PRINT =: PRINT “A GREAT JOB! 
!'! YOU CAN RULE MY COUNTRY 
ANY TIME YOU WANT TO !!!": RETURN 
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In this game you try to alphabetize a scrambled list of letters. One square is 
left blank so that you may move a letter into it. The computer will scramble the 
completed version approximately 150 times. You must unscramble the letter 
matrix in as few tries as possible. Remember, practice makes perfect! Before we 
look at the graphics, it seems appropriate to mention that proper graphics 
alignment is not a matter of trial and error, but entails working with graph 
paper and drawing the figure which is to be outputed to the screen. Then, 
after figuring which coordinates will be filled in with which color, the writing 
of the program can take place. The nice pictures that you see on the screen are 
more the result of painstaking work than the result of brilliance. Getting back 
to Magic Squares, let’s look at some of the graphics. Lines 2025-2028 draw the 
gameboard. Lines 2221-2235 draw the letters onto the game-board. Check this 
out by typing: 2225 STOP, then run. The first four letters (A,B,C, and D) are 
drawn. Type: CONT to continue the run. A matrix with two F's will be 
displayed. To undo any change, type: LOAD (program name). When this is 
done, the original program (without any changes) will be loaded. 


7) 


1d 
11 
12 
13 
14 
1d 
16 
=@ 
3@ 
42 
oO 
68 
1000 
1001 
1002 
1010 
1020 


1030 


1035 


104@ 


1045 
1030 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
END 


REM 
TEA 
VTA 
MAGI 
VTA 
» YO 
BOAR 
HE L 
PRI 
PRI 
IZON 
IZE 
EWAY 
G AS 
NEAT 
PRI 
PRI 
E MO 
TOLD 
VTA 
N WH 
9ANS 
RET 


REM 


DEF 


” 
ral 


HHEHEKHHKHEKRHHKKRKHKKKKKKKE 


%&% HH 
**#*% MAGIC SQUARES *** 
%%% HH 


HHEKEHHHKEKHHKHKKHKHKEKKREHE 


1900: REM INSTS 
2000: REM SETUP 
3000: REM PLAY! 
4000: REM !END! 


*#*#* INSTS 


T =: NORMAL : HOME 

B 3: HTAB 93: PRINT "**% 
C SQUARES ***" 

B 7: PRINT “IN THIS GAME 
U HAVE A 4 BY 4 GAME- 

D. THE BOARD CONTAINS T 
ETTERS A-O." 


NT 
NT "THE OBJECT IS TO HOR 
TALLY ALPHABET 


THE SCRAMBLED GAME-BOARD 
YOU CAN MOVE A PIECE SID 
S OR UP AND DOWN, AS LON 
THE EMPTY SQUARE [5 
TO IT. " 
NT 
NT "YOUR PROGRESS WILL B 
NITOREDs AND YOUWILL BE 
HOW YOU ARE DOING, " 
B 23: INPUT "PRESS RETUR 
EN READY TO CONTINUE : " 
$ 
URN 


*#*#% SETUP 


FN CCA) = (KA - 1) * 8 + 


20190 


2020 


2025 


2026 


2027 


2028 


2029 
2030 


2040 


DIM B(4+4): FOR I = 1 TO 4: 
FOR J = 1 TO 4:K = K + 1:6 
J+I) = Kt NEXT Jol 

DIM DIR(4+2): FOR I = 1 TO 


READ DIR(1I +1) ,DIR(I +2): 
1*O:Orsls-1+0+0,-1 
GR COLOR= 12 
FOR I = 1 TO S32: 

I: NEXT 

COLOR= 15 

FOR I = @ TO 32 STEP 8: 
2:32 AT I: 


4: NEAT 


: DATA 


HLIN @+32 AT 


HLIN 
VLIN @+32 AT Is NEXT 


CO = 15: GOSUB 210@ 

VTAB 23: PRINT "<< I’M NOW 
SCRAMBLING THE GAME BOARD >> 
SA = 
(1) 


4:SY = 
* 30) 


4:S5C = 
+ 100: FOR 


INT ¢ 
K = 


RND 
1 TO 


INT (¢ 
SA 


RND (1) * 4) 
+ DI(D+l):PY = SY + 

IF PX < 1 OR PX = @ 
PY 1 OR PY } 4 THEN 20 


+ 1: 


od 

B(Sx+SY) 
J = Sxl 
2200 
J = 
2200 
BCPX»PY) 


BCPX»PY) 
SY:CO = 


14: GOSUB 


PX:lI PY¥Y:CO = 12: 


GOSUB 


@:SK = PK:SY = PY 
NEXT K: RETURN 

REM +**%* DRAW BOARD 

FOR I = 1 TO 4: FOR J = 
4:CO = 14: GOSUB 2200: 
JeI: RETURN 

REM *#*%* DRAW LETTER 
X = FN C(J):¥ = FN CCI): 
CO 


1 TO 
NEXT 


7/ 


COLOR= 


2210 ON BCJeI) + 1 GOSUB 2220;22 
21 2222 12223 12224 92225 12226 » 
2227 12228 2229 22980 2231 223 
292293939 22234522935: RETURN 
2220 RETURN 
2221 PLOT X + 29¥: PLOT K + 197 + 
is PLOT X + 3s¥ + 1: VWLIN Y + 
2+¥ + G4 AT Kt VWLIN Y + 2e¥ + 
4 AT X + 4: HLIN XKe+X + 4 AT 
Y + 3: RETURN 
fe2ee WVLIN Yr¥ + 4 AT Xt HLIN Koex 
+ 3 AT Yi HLIN A+xX + 3 AT Y 
+ 2: HLIN X+xX + 3 AT ¥ + 4: 
PLOT X + 4s¥ + 1: PLOT & + 
4e¥ + 3: RETURN 
2e23 HLIN X+X + 4@ AT Ys: HLIN Xx 
+ 4 AT ¥Y + 4: VLIN Yo¥ + 4 AT 
A: RETURN 
2224 HLIN X+X + 3 AT Ye HLIN XoxX 
+ 3 AT Y + 4: WLIN Yo¥ + 4 AT 
Xs VYLIN Y + 1e¥ + 39 AT A + 4 
RETURN 
2225 HLIN XsX + 4 AT Ys HLIN Kor 
+ 3 AT Y + 2: HLIN Kok + 4 AT 
Y + 4: VLIN Yos¥ + 4 AT Xt: RETURN 


2226 HLIN XeX + 4 AT Ye HLIN Xox 
+ 3 AT Y + 2: VLIN Ys¥ + 4 AT 
xX: RETURN 
2227 HLIN XX + 3 AT Ye HLIN Kex 
+ 4 AT Y + 4: WLIN Ys¥ + 4 AT 
Xs VLIN ¥Y + 29¥ + 4 AT X + 4 
: PLOT X + 39Y¥ + 2: RETURN 
2228 jHLIN XX + 4 AT Y + 2: YWLIN 
YoY + G4 AT At VLIN VYs¥ + 4 AT 
X + 4: RETURN 
27229 HLIN X+X + 4 AT Ye HLIN XoxX 
+ G4 AT Y + 4: VLIN Yo¥ + 4 AT 
X + 2: RETURN 
22a0@ HLIN X+X + 4 AT Yt HLIN X + 
1*X + 2 AT Y + 4: PLOT XAe¥ + 
3: VLIN Yo¥ + 4 AT X + 2: RETURN 
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2231 


2234 


3@15 


VLIN Yr¥ + 4 AT Xs PLOT & + 
i*¥ + 2: PLOT X + 2+¥ + 1s PLOT 
M+ 2eY + 3s PLOT X + 3s#¥s PLOT 
we + 3,+Y + 4: RETURN 

HLIN X+X + 4 AT ¥ + 4: YVLIN 
Ys¥ + 4 AT Xt: RETURN 

VLIN Yr¥ + 4 AT At VLIN Yo" 

+ G4 AT XK + 4s PLOT XK + 15¥ + 
1: PLOT X + 3+*Y + i: PLOT & + 
2+Y¥ + 2: RETURN 

VLIN Yo¥ + 4 AT Xe VLIN Yo" 

+ 4 AT XK + As PLOT X + 15¥ + 
1: PLOT K + 2+Y¥ + 2: PLOT A&A + 
3*¥ + 3: RETURN 

VLIN Yo¥ + 4 AT Ke VLIN Yo" 

+ 4 AT X + 4: HLIN XoKx + 4 AT 
Ys HLIN X+X + 4 AT Y + 4: RETURN 


RETURN 
REM *%*%* PLAY! 


HOME =: PRINT “MOVE WHICH PI 
ECE =: "3s: GET ANS$: PRINT AN 


5 $ 

IF ANS$ < "A" OR ANS$S ne" 
THEN PRINT CHRS (7): GOTO 
3810 


FOR K = 1 TO 4:PA = SA + DI 
R(Ks1)sPY = SY + DIR(K +2) 

IF Px 1 OR PX => 4 OR PY 

1 OR PY = 4 THEN 3040 

IF BCPX+PY) = ASC (ANS$) - 
G4 THEN MO = MO + 1: GOTO 31 
OO 

NEXT K: PRINT CHRS (7): GOTO 
3010 


B(SX+SY) = BCPX+sPY):sJ = Skil 
= SY:CO = 14: GOSUB 2200 
J = PX:I = P¥:CO = 12: GOSUB 


200:B(PX+PY) = @:SX = PX:SY 
= PY 
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3200 


3210 


3220 
3990 
ADD 
4001 
Adaz 
4010 


4020 


4990 


K = @: FOR I = 1 TO 4: FOR J 


= 1T0 4:K = K + 1: IF K = 
16 THEN K = @ 

IF B(JsIT) = K THEN NEXT J» 
I: RETURN 

GOTO 3010 


RETURN 
REM *%*%* END 


HOME =: PRINT "YOU SOLVED IT 
1's PRINT : PRINT "IT WAS §& 
CRAMBLED "SC" TIMES: "s: PRINT 
"AND YOU SOLVED IT IN "MO" M 

OVES, “ 

INPUT "DO YOU WISH TO PLAY 
AGAIN? "sANS$: IF LEFT (AN 
S$el) = "¥" THEN RUN 

RETURN 
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This game is a spinoff from a popular game show. The object is to eliminate as 
many numbers as you can from the list before you get stymied. To begin, you 
are given a list of numbers ranging from 1 through 9. A pair of dice are rolled. 
The total (2-12) must be subtracted from the list. Most of the numbers can be 
removed from the list in a multitude of ways. If the first number rolled is a 
nine, there are eight possible ways to total exactly nine. They are: 


1,2,6 1,3,5 1,8 2,3,4 2,7 3,6 4,5 and 9 by itself. 


According to the rules, you may remove any of these combinations as long as 
the total is nine. There are many different strategies, but you can develop your 
own. Let's look at the graphics. Lines 2131 through 2139 draw the list of nine 
numbers. To verify this, type: 2136 and then return. Now when you run the 
program you will get 1 2 3 4 5 (error message). Line 2210 gives each die a 
random result between 1 and 6. To help you understand how one of the 
numbers is set to blinking, look at lines 2200-2336, and experiment with any of 
these lines. 
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10 REM HREEHEKKKKHEKKEKKEKKER 


11 REM **%* KEK 
12 REM *** NUMBERS AWAY **+* 
13 REM *** HH 
14 REM KEK KRKHEKHEKHREKHEKEE 
iS REM 
iG REM 


“0@ GOSUB 1000: REM INSTS 

3@ GOSUB 2000: REM SETUP 

40 GOSUB 3000: REM PLAY! 

22 GOSUB 4000: REM '!END! 

60 END 

1000 : 

1001 REM *** INSTS 

igga@2 : 

1010@ TEXT : HOME : NORMAL 

1020 VYVTAB 3: HTAB 10: PRINT "***% 

NUMBERS AWAY **#*" 

1030 YTAB 7: PRINT “IN THIS GAME 
+ YOU WILL BE PRESENTED WITH 
A LIST OF NUMERS BETWEEN 1 A 
ND 9." 

1035 PRINT : PRINT "A PAIR OF DI 
CE WILL BE ROLLED: AND THE 
TOTAL WILL BE NOTED. YOU MU 
ST REMOVE, FROM THE LIST» A 

COMBINATION OF NUMBERS WHOS 
E TOTAL MATCHES THE NUMBER O 
N THE DICE." 

1040 PRINT : PRINT "FOR EXAMPLE, 
IF A SEVEN WAS ROLLED,» YOU 
COULD REMOVE FROM THE LIST (¢ 
1+29d) + (156) (293) (3 
94) OR JUST PLAIN (7), “ 

i1@45 VTAB 23: INPUT “HIT RETURN 
WHEN READY TO CONTINUE : “5A 
NS$ 

i950 HOME : VTAB 3: HTAB 1@: PRINT 
"*ee* NUMBERS AWAY ***": VTAB 
7 
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1055 PRINT "TO MOYE IN THE LIST» 
USE THE FORWARD ANDBACKWARD 
ARROWS. THE NUMBER YOU ARE 

AT WILL BLINK. TO SELECT A 
NUMBER+ PUSH THERETURN KEY." 


1060 PRINT =: PRINT "WHEN YOU SEL 
ECT ENOUGH NUMBERS TO REACH 
THE TOTAL ON THE DICE, THE C 
OMPUTER WILLROLL THE DICE FO 
R YOUR NEAT TRY 

1965 PRINT : PRINT “IF YOUR TOTA 
L GOES OVER THE NUMBER»s THE 
LIST WILL BE RESTORED; AND ¥Y 
OU WILL HAYETO TRY AGAIN. TO 
GIVE UP» PRESS THE ESC KEY. 

1070 YVTAB 23: INPUT "HIT RETURN 
WHEN READY TO CONTINUE =: "“3sA 


NS 
1990 RETURN 
200d : 
2001 REM *** SETUP 
2002 : 


2010 DIM LI(9),+L2(9): FOR I = 1 TO 
OsLI¢I) = I: NEXT 

2020 GR : HOME 

7030 FOR I = 1 TO O:NU = I: GOSUB 
£100: NEXT 

£095 RETURN 

2100 COLOR= NU: GOTO 2120 

£110 COLOR= @ 

2120 ON NU GOTO 2131-2132 12133 92 
134.2135 6.2136 62137 +2138 +2139 


2131 HLIN 2:3 AT S: VLIN 5359 AT 
3: HLIN 2°94 AT 9: RETURN 
2132 HLIN G:8 AT St VLIN S27 AT 


8: HLIN 6:8 AT 7: VWLIN 759 AT 
G: HLIN 6°8 AT 9: RETURN 
2133 HLIN 10,12 AT Ss: HLIN 10,12 


AT 7: HLIN 18@s12 AT 9: VLIN 
279 AT 12: RETURN 
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2l3d VLIN 3+7 AT 14: VYLIN 3°99 AT 
16: HLIN 14:16 AT 7: RETURN 


2135 HLIN 18920 AT S: HLIN 18720 
AT 7: HLIN 18:20 AT 9: YVLIN 
o+7 AT 18: VLIN 7+9 AT 20: RETURN 


2136 HLIN 22524 AT 3S: HLIN 22:24 
AT 7: HLIN 22:24 AT 9: VLIN 
39D AT 22: VYLIN 7°59 AT 24: RETURN 


2137 HLIN 2628 AT 3: VLIN 5,9 AT 
28: RETURN 
2138 HLIN 30:32 AT 3S: HLIN 30:32 
AT 7: HLIN 30:32 AT Q: VLIN 
29D AT 30: VLIN 359 AT 32: RETURN 


2139 HLIN 34/36 AT 3: HLIN 34,736 
AT 7: VLIN 3+7 AT 34: VLIN 

299 AT 36: RETURN 
2200 FOR J = 1 TO INT (¢ RND (1) 


* 3) + 3 
2210 D1 = INT ¢ RND (1) * G) + 1 
:D2 = INT ( RND (1) * G) + 


1 

2220 GOSUB 2300: GOSUB 2310 

2230 NEAT 

2300 DD = D1l:DA = 10: GOTO 2320 

2310 DD = D2:DaA = 24: GOTO 2320 

2320 COLOR= jINT (¢ RND (1) * 14) 

+ |] 

2325 FOR I = 30 TO 36: HLIN DX+>D 
x + 6 AT I: NEAT 

£330 COLOR= 15: ON DD GOTO 2331, 
2332 92333 12334 523935 +2336 

2331 PLOT DX + 3:33: GOTO 2340 

2332 PLOT DX + 1+31: PLOT DA + 5 
935: GOTO 2340 

2333 PLOT DX + 1,31: PLOT DA + 3 
933: PLOT DX + 3:35: GOTO 23 
Ad 

2334 PLOT DX + 131: PLOT DK + 5 
s3i: PLOT DX + 1,/35: PLOT DX 
+ 335: GOTO 2340 
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2336 


2340 


3OOO 
3001 
3OO2 
3010 


3012 
3015 


3020 
3025 


3830 


PLOT DX + 131: PLOT DA + 9 
131: PLOT DX + 135: PLOT DX 
+ 5,35: PLOT DX + 3°33: GOTO 
2340 

PLOT DX + 1*31: PLOT DX + 5 
sSiz: PLOT DA + 1°35: PLOT DX 
+ 3/35: PLOT DX + 1933: PLOT 
DX + 3933: GOTO 2340 

FOR I = 1 TO 3:XX = PEEK ( 
- 16336): NEXT =: RETURN 


REM *#** PLAY 


FOR I = 1 TO 9: IF NOT LI 
I) THEN NEAT =: HOME =: PRINT 
CHR (7) CHRS (7) CHRS (7)" 
YOU GOT THEM ALL !!!": FOR I 
= 1 TO 1000: NEXT I: RETURN 


GOSUB 2200: REM ROLL DICE 
FOR IT = 1 TO DelL2¢1I) = O: NEXT 


TT = Di + D2:ST = @ 

HOME : PRINT "<<< YOU MUST 
GET A TOTAL OF "TT" 333" 

FOR I = 1 TO 9: IF NOT LI¢ 
I) THEN NEXT =: HOME : PRINT 
CHRS (7)"THERE IS NOTHING L 
EFT,» AND": PRINT “YOU CANNOT 
REACH THE TOTAL": FOR I = 1 
TO 1000: NEXT I: RETURN 

NP = @: GOSUB 3100 

NU = LICNP): GOSUB 2110: FOR 
I = 1 TO 35@: NEAT I: GOSUB 2 


IF PEEK ( - 16384) < 128 THEN 


KEY = PEEK (¢ - 16384): POKE 

- 1636850 

IF KEY = 149 THEN GOSUB 31 
02: GOTO 3040 

IF KEY = 136 THEN GOSUB 32 
02: GOTO 3040 

IF KEY = 155 THEN RETURN 
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3070 
3872 
3075 


3OBO 


3085 


3090 


3100 


3110 
3120 
3200 


32190 
3220 
ABO 
4001 
A40a2 
4019 
Ad20 


A030 


4032 


4035 


A4d40 


4041 


4042 


IF KEY 
NU NP: GOSUB 21190 
ST ST + NPsLI(NP) = 
P) 1: IF ST < TT THEN PRINT 
"YOU'VE GOT "ST"+ YOU NEED " 
TT - ST".ee": GOTO 3030 

IF ST = TT THEN GT = GT + T 
T: HOME PRINT CHR (7) CHRS 
(7) CHRS (€7)"YOU GOT THAT ON 
E tli": FOR I = 1 TO 300: NEXT 
I: GOTO 3010 

FOR IT = 1 TO 9: IF L2(1I) THEN 
NU = Is GOSUB 210@:LI(I) = I 


141 THEN 30490 


@:Lec(Nn 


NEAT :ST = 
"QOOPS,» TRY 
"TT" ,,,! 


@: PRINT : PRINT 
AGAIN! YOU NEED 
CHRS (7): GOTO 303 
"4 
NP = NP + 1: IF NP 3 THEN 
NP = 

IF LIC(NP) = 
RETURN 
NP = NP - 1: 
NP = 9 

IF LIC(NP) = 
RETURN 


@ THEN 31900 


IF NP 1 THEN 


0 THEN 3200 


REM *** END 

TEXT HOME 

VTAB 3: HTAB 10: PRINT "**% 
NUMBERS AWAY *##": YTAB 15 
PRINT “YOU GOT "GT" OUT OF 
A POSSIBLE 45. 

PRINT "THAT I5 "5 

ON INT (GT / 3) GOTO 4040, 
4041 »,4042 »4043 ,4044 54045 +404 
G6 »4047 ,4048 ,4049 

PRINT “THE ABSOLUTE WORST ! 
l'": RETURN 


PRINT "EXTREMELY POOR !!!": 
RETURN 
PRINT "TERRIBLE !!!": RETURN 
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4043 


Adaq4 


4045 
4246 


4047 
4048 


4049 


PRINT 


PRINT 


PRINT 
PRINT 


PRINT 
PRINT 


PRINT 


"VERY BA 


"JUST SO 


"FAIR +. 
"PRETTY 


"GREAT | 
"FANTAST 


“PERFECT 


DoHlt"s: RET 


-SO !li"s: R 


»"s RETURN 
GOOD «++"8 


!i"s RETURN 
IC Fitbens 
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URN 


ETURN 


RETURN 


RETURN 


RETURN 


hear 


~ @87-9,. in 
AY 


This game can be frustrating, challenging, and exciting all at the same time. 
You are given a list of integers which you must unscramble using a reversing 
technique. The list is established in lines 2010 by setting up an array table 
using a FOR NEXT loop. LI (I) becomes LI (1), LI (2) etc. Line 2020 assigns the 
random order to the list. Line 3050 does the reversing of the numbers that you 
select as ANS in 3040. These lines have several commands grouped together 
for speed of operation. If you want to dissect them it is best to rewrite the line 
as separate statements. You can also print out the variables: 


3050 MDL = INT ((9 - ANS) 2) 

3@91 PRINT "MDL IN LINE 3051 ="5MDL 

3032 FOR I = ANS TO ANS + MDL 

3@33 PRINT "I ="s15" ANS + MDL ="5 ANS+MDL 
3@34 T = LI(T) 

3039 PRINT "T ="5T 

3@5G6 LI¢(I) = LI(9 + ANS - T) 

3@57 PRINT "LI (1) ="5LI(T1) 

3038 LI(9 + ANS - I) = T 

3039 PRINT "T ="5TsNEXT 


This elaboration of line 3050 will let you watch the program pass the variables 
using “T’ as a temporary storage location. Practically all the action takes place 
in this one line. When you run this revised program, print statements will tell 
you what happens each time you make a reversal. 
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The purpose of combining statements on a single line is speed of execution. 
When you are developing programs you should have every statement on a 
separate line. When the program is running correctly you should make two 
versions. Make a long version with lots of REMS and descriptive variable 
names, and a short version with combined lines. This will help you modify the 
program later on. Your own program that you knew my heart a few weeks ago 
can become a complete mystery if you don’t spend enough time on REMS and 
organization. 


12 REM KHEKHKHKKEHKHKKHHKHKEEE 


11 REM **% HK 
t2 REM *#%# REVERSER KH 
13 REM **%* %H% 
14 REM HEHEHE KHHEKHEKKKEKHHES 
iS REM 
iG REM 


20 GOSUB 1000: REM INSTS 

30 GOSUB 2000: REM SETUP 

40 GOSUB 3000: REM PLAY! 

90 GOSUB 4000: REM !END! 

6@ END 

1000 : 

1001 REM *** INSTS 

1002 : 

1010 TEXT : HOME : NORMAL 

1920 VTAB 2: HTAB 12: PRINT "*#* 

REYVERSER **##" 

1030 VTAB 3S: PRINT "IN THIS GAME 
» YOU ARE GIVEN A LIST OF 
NUMBERS FROM @ TO 9. THE LI 
ST WILL NOT BE IN SEQUENCE, 

IT 18 YOUR JOB TO SORT THE 
LIST INTO ASCENDING ORDER." 

1040 PRINT : PRINT "YOU ARRANGE 
THE LIST BY REVERSING THE 
ORDER OF IT. YOU INPUT THE 
STARTING COLUMN THAT IS T 
O BE REVERSED» AND THAT COLU 
MN+ ALL THE WAY THROUGH TO C 
OLUMN NINE» WILL BE REVERS 
ED." 

1050 YVTAB 23: INPUT "HIT RETURN 
WHEN READY TO CONTINUE :"S5AN 
S$ 


90 


1060 


1070 


1080 


1090 


1100 


1130 


11490 


HOME VTAB 2: HTAB 12: PRINT 
"eee REVERSER *#*#": YTAB 5 
PRINT "IF YOU HAD THIS LIST 
2": PRINT PRINT "POSITIONS 

9129345 67 8 9": PRINT 
---": PRINT ° LIST: @ 1 
98765 2 3 4": PRINT 

PRINT "AND YOU REVERSED AT 
POSITION 7+ IT WOULDLOOK LIK 
E THIS:" 
PRINT : 


12 


PRINT "POSITIONS: @ 
345 G6 7 8 9": PRINT ° 
--"s PRINT " LIST: @1 9 
8765 43 2": PRINT 

VTAB 23: INPUT "HIT RETURN 
WHEN READY TO CONTINUE "SA 
NS$ 

HOME : VTAB 3: 
"##* REVYERSER *#*##": YTAB 7 
PRINT "A FINAL REVERSAL AT 
POSITION 2 WOULD COMPLETE 
THE LIST AS THIS:" 

PRINT =: PRINT "POSITIONS: @ 
12345 6 7 8 9": PRINT " 
--": PRINT " LIST: @1 2 
3435 67 8 9": PRINT 

PRINT : PRINT "YOU WIN WHEN 
THE LIST IS SORTED IN 
ASCENDING ORDER AS IS SHOWN 


HTAB 12: PRINT 


ABOVE.":s PRINT =: PRINT “GOOD 
LUCK !!!" 
VTAB 23: INPUT "HIT RETURN 


WHEN READY TO CONTINUE : 
NS$ 
RETURN 


REM 


"50 


*¥*%* SETUP 


DIM LI(9): FOR I = 
I(T) = Is NEAT 


@ TO 9sL 


91 


3035 


3040 


FOR I = @ TO 
(1) * 10):T 
LICK) LIX) 

RETURN 


REM 


J:X = INT ( 
LI(I)sLI¢I) = 
Ts NEXT 


%##% PLAY 


HOME : VTAB 3: HTAB 12: 
"##* REVERSER #42": YTAB 7 
PRINT PRINT "POSITIONS: @ 
12345 67 8 9": PRINT " 
--": PRINT " LIST: 
FOR I = @ TO 9: PRINT LI(T1) 
" "3s NEAT = PRINT 
FOR I = @ TO 9: IF LICI) = 
I THEN NEAT RETURN 

PRINT : INPUT "REVERSE AT W 
HICH POSITION (@-9) ?"s5SANS$: 
ANS = VYWAL (CANS$): IF ANS <¢ 
® OR ANS > 9 OR ANS << ?} INT 
(ANS) THEN PRINT =: PRINT "T 
YPE A NUMBER BETWEEN @-9):G0 
TO 3040 


RND 


PRINT 


305@ MDL = INT ((9 - ANS) / 2): 
I = ANS TO ANS + MDL:T = LI( 
I)sLI¢(I) = LI(9 + AN - I)3ELI 
(9 + AN - I) = Ts NEXT 

3060 MOVE = MOVE + 1: GOTO 3020 

4000 : 

4001 REM *** END 

A902 : 

4010 PRINT : PRINT “YOU DID IT ! 
"s PRINT : PRINT "IT ONLY TO 
OK YOU "MO" MOVES" 

4020 PRINT 

4030 IF MO < 15 THEN PRINT "THA 
T’S SUPER! !'": RETURN 

4040 PRINT "GOOD JOB!" 

4990 RETURN _ ? 

a“ oN 
i> 


& 
a ve 


Impossible! It may seem impossible, but it’s not. Deriving the key to this 
challenging game is very satisfying indeed! The object of the game is to 


The rules are few. The question marks (?) can only move to the left. Pound 
signs (#) can only move to the right. Either sign may be moved during a turn, 
with the following limitations. A sign may be moved into the place currently 
occupied by the period (this space is referred to as the blank space). A move is 
made by moving to an empty space or by jumping over one opposing piece. 
To understand the function of lines in the play section, separate compound 
lines and print out variables as you did for Reverser. 


D3 


1@ REM KRHEKEHHKEHKHHKHHHHKHHHEKEH 


1i REM **# HH 
12 REM *** TRANSITION *** 
13 REM **# H% % 
14 REM KEK KHEKHKKKKEKRKKEHHKEHRE 
15 REM 
iG REM 


20 GOSUB 1000: REM INSTS 
30 GOSUB 2000: REM SETUP 
40 GOSUB 3000: REM PLAY! 
22 GOSUB 4000: REM !END! 
62 END 


19001 REM +*#*%# INSTS 


1010 TEXT : NORMAL : HOME 
1020 VTAB 3: HTAB 11: PRINT "“x*% 
TRANSITION *%#" 
1030 YVTAB 7: PRINT “THE GAME OF 
TRANSITION WILL PRESENT YOU 
WITH A LIST OF NINE DIGITS, 
THE LIST WILL LOOK LIKE T 


HIS : " 
1039 PRINT 
1040 PRINT “ 1234 
> 6789 
Fd F 3 it it ’ ry ° 7? red 


1050 PRINT : PRINT "THE OBJECT I 
S TO TRANSPOSE THE ORIGINAL 
CHARACTER POSITIONS. TRY TO 

REVERSE THEPOUND SIGNS (#) 
AND THE QUESTION MARKS INTO 
ONE ANOTHER’S PREVIOUS POSI 
TIONS." 

1060 VTAB 23: INPUT "HIT RETURN 
WHEN READY TO CONTINUE =: "3A 
NSS 

1070 HOME : VTAB 3: HTAB il: PRINT 
"#*ee* TRANSITION *##": YVTAB 7 


198@ PRINT "THE ‘#’ CHARACTER CA 
N ONLY MOVE TO THE RIGHT: A 
ND THE ‘?%’ CHARACTER CAN ONL 
¥ MOVE TO THE LEFT." 


94 


1090 


1100 


11190 


i990 
2000 
2001 
2002 
2010 


2020 
2-990 
3800 
3001 
3002 
3010 


3020 


3022 


3023 
3024 


3025 


3826 
3027 


PRINT PRINT "A MOVE IS MA 
DE BY MOVING TO AN EMPTY 


SPACE, OR BY JUMPING OVER ON 
E OPPOSING PIECE." 

PRINT PRINT "TO MAKE A MO 
VE,» YOU ENTER THE POSITION 
NUMBER OF THE MOVING PIECE, 

TO QUIT» ENTER ZERO (@)." 

VTAB 23: INPUT “HIT RETURN 
WHEN READY TO CONTINUE "9A 
NS$ 

RETURN 


REM *#*%* SETUP 


DIM LI(9): FOR I = 1 TO 
I(T) = 1(stLI¢i@ - = 2 


NM = @ 
RETURN 


REM x*#* PLAY 


HOME : VTAB 3: HTAB 11: PRINT 


"*#* TRANSITION *¥*#": YVTAB G 
FOR I = 1 T0 9: IF (I ¢ 3 AND 
LI¢I) = 2) OR (I = 3 AND LI 
I) = @) OR (I +> 3 AND LI(CI) = 
1) THEN NEXT !:WL = 1: RETURN 
PRINT : PRINT "C"5s: FOR I = 
1 TO 9: PRINT I5 
IF I < 9 THEN PRINT " "$: 
NEXT PRINT "J #-—- > 
PRINT "C"s: FOR I = 1 TO Q: 
PRINT MID# (".,#?",LIC(I) + 
1o1)5 
IF I ¢< 9 THEN PRINT " "5 
NEXT : PRINT " MOVE (@- 
9) 3: " 


9) 


3060 


3865 


3070 


3075 
3990 
Adaa 
AQO1 
Ada2 
4010 


4020 


4025 


499¢@ 


GET ANS$: 
ANS$ "gn 
IF ANSS = 
ANS = VAL 


IF ANS$ < 
THEN 303¢ 
"O" THEN WL = @: 
(ANS$): PRINT AN 


nai OR 


IF LICANS) = @ THEN’ PRINT 
"THAT SPACE IS EMPTY ..."3 
3020 

IF LI(ANS) 

IF LI(CANS) 
1 

IF ANS + DI 3 OR ANS + D 

~ 1 THEN PRINT "IT CANNOT 
MOVYE FURTHER ...": GOTO 302 


1 THEN DI 
< THEN DI 


IF LICANS + DI) = 
(ANS + DI) = LICANS) sLICANS 
= @:NM = NM + 1: GOTO 3020 
IF ANS + DI + DI + 9 OR AN 
+ DI + DI @ THEN PRINT 


@ THEN L 


RETURN 


S 


GOTO 


I 


My 


I 
) 


S 


IT CANNOT MOVE FURTHER ..+-": 


GOTO 3020 

IF (LICANS + DI) ¢ 
S)) AND (LICANS + DI + DI) 
@) THEN LICANS + DI + DI) = 
LICANS)sLICANS) = @O:NM = NM 
1: GOTO 30290 

PRINT "IT CANNOT MOVE FURT 
ER «ee"s GOTO 3820 

RETURN 


REM *** END 


LIA 


PRINT PRINT PRINT 
GAME 15S OVER !!!": 

IF WL = @ THEN 
GOT STUCK AFTER 
: PRINT "BETTER 
ME !" 

IF WL = 1 THEN 
DID IT TEE": 
NLY TOOK "NM" 

RETURN 


"THE 
PRINT 
PRINT "YOU 
"NM" MOVES, 
LUCK NEXT T 


PRINT "YOU 


PRINT "AND IT 
MOVES, " 
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+ 


H 


I 
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For all of you word buffs, here is a game of anagrams geared towards any skill 
level. For those of you who are not familiar with anagrams, it is a word given 
in scrambled fashion. The following list should help. 


SCRAMBLED UNSCRAMBLED RATING (1=EASY 10=VERY HARD) 


xob box 1 (elementary) 
tahb bath 2 (easy) 

laott total 3 (light) 

betd debt 4 (mild) 
gindru during 5 (moderate) 
ptles slept 6 (trying) 
spumlie impulse 7 (tough) 
yrtaslc crystal 8 (difficult) 
meminscon mnemonics 9 (hard) 
preskulen spelunker 10 (very hard) 


In the actual game, the difficulty factor ranges from 1 to 5. The program does 
not utilize color, but there are some interesting points. You will note that there 
is a white border encirling each word. Line 3050 puts the computer into the 
INVERSE mode. Instead of plotting white onto black, the INVERSE is true, 
black will be plotted onto a white background. Lines 3050, 3060, and 3070 are 
responsible for drawing the white border. Copy these two short programs to 
see how the output is changed. 
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1@ 
20 
3@ 
Ad 
3 @ 


NORMAL 10 INVERSE 

FOR A = 1 TO 10 20 FOR A = 1 TO 10 
VTAB 2*I:HTAB I 30 YVTAB 2*I1:HTAB I 
PRINT " " 4@ PRINT " " 

NEAT 


Line 3080 is a loop which ‘makes a pass’ for each letter in the word (WL = 
Word Length). Although you see the entire word appear on the screen at one 
time, what is really happening is that one letter (WS$5) at a time is being 
printed. Line 3090 instructs the computer to PRINT CHR$(95) once for every 
letter in the word. CHR(95) is a hyphen (-), so 3090 instructs the computer to 
print a hyphen for each letter in the word. 
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10 
11 
12 
13 
id 
15 
16 
20 
3@ 
Ad 
oO 
6@ 
1000 
10d01 
1002 
1010 
1020 


1030 


1031 
1035 


1040 


199@ 
=O00 
2001 
2002 
2010 


2020 
2025 
2026 
2027 


2028 
2029 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
END 


HEHHKKKHEEEEEEEKKEKEEEESE 
EHX HEX 
#%** WORD SCRAMBLE *** 
HH HE 
HEKKEEKEKKEEEKEKEEEEHEHEES 


1000: 
2Oda: 
3000: 
AQA@: 


INSTS 
SETUP 
PLAY! 
'END! 


REM 
REM 
REM 
REM 


REM #*##% INSTS 
TEAT NORMAL HOME 
VTAB 3: HTAB 9: PRINT 
WORD SCRAMBLE **#" 
VTAB 7: PRINT "IN THIS GAME 
> THE COMPUTER WILL CHOOSE 
A WORD AND SHOW YOU A SCRAMB 
LED VERSION." 

PRINT 

PRINT "YOUR PROBLEM IS TO U 
NSCRAMBLE THE WORD BEFORE T 
HE ALLOTTED TIME EXPIRES." 
VTAB 23: INPUT "HIT RETURN 
WHEN READY TO CONTINUE "SA 
NSS 

RETURN 


"HH 


REM *%*%* SETUP 


HOME VTAB 3: HTAB 9: 

"##* WORD SCRAMBLE ***" 
VTAB 7: PRINT "THE FOLLOWIN 
G ARE AVAILABLE =: ": VTAB 10 


PRINT 


PRINT " 
PRINT " 
PRINT " 
PRINT " 
PRINT " 


1) 
=) 


3) 


VERY EASY" 
FASY" 
INTERMEDIATE 


4) 
2) 


HARD" 


VERY HARD" 
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£1190 


PJ 
-_— 
PJ 
on 


VTAB 18: INPUT "WHICH OPTIO 
N (1-5) "SANS 

IF ANS 1 OR ANS 2 OR AN 
S <= 2 INT (ANS) THEN PRINT 
CHR (7): VYTAB 18: CALL - 
938: GOTO 2030 

DIM WO$(100): FOR I = 1 TO 
i@@: READ WOS(T): NEXT 

DATA CAT »DOG,+TREE +SIT »DOOR 


»BOX +s ARM »sWALL +>TEA»PEN +PAD »CU 
P»,PIN»sDIG»GOOD;TIE+SEA+sARE +H 
OW,»LIP 

DATA WARM>WIND,LEAF »BLUE »W 
AIT»sKITE+SLIP+»+DRIP »MAZE +PARK 
»LIFE »GAME »sHIGH +s DISK »RUIN;>CA 
RD »MOLE »ARCH »sHARD »sVERY »DATA 
DATA PENCIL+LOOSE »NORMAL +T 
IRED »sBEFORE »AFTER »BLACK +» TARG 
ET »KNOCK »sBAGEL+INPUT »RETURN; 
START »s ENTRY +GROUND »SHINE +HOR 
SE »PAPER »GREEN »PHONE 

DATA ORIGINAL >BEHIND »>MAGAZ 
INE »+STORAGE »SCRATCH »-COMPUTER 
»PERSONAL »SOFTWARE »PERFORM;:S 
YSTEM »sWINDOW »COMBINE » TANGENT 
*SPECIFY »ANOTHER »-EYALUATE »ME 
MORY »sINSIDE +> IGNORE »HOWEVER 
DATA SEQUOTA+MATRIX »COORDI 
NATE »;SPACIAL »DIRECTION»SUBST 
ANTIAL »sCONTINUE »SUBSCRIPT>EM 
ULATE »sAPPROPRIATE »sCONICAL +DE 
VELOPMENT »sELEVATION »sMECHANIC 
AL »sMAGNETIC »TRAJECTORY »STIMU 
LUS »sCIRCUMSTANCE +PROBABILITY 
»PROJECTION 

DIM WR#(15) »WS$(15) »WCO#$(15) 


RETURN 

REM #*#*%* PLAY 
WO = INT ¢( RND (1) * 20) + 
(ANS - 1) * 20 + 1 


100 


3820 


3060 


3070 


30BO 


3890 


WL = LEN (WO$(WO)): FOR TI = 
1 TO WLEWR#(I) = MIDS (WOS( 
WOdslel) sWS$(1I) = WRSCT): NEAT 


FOR I = 1 TO WL:TI = #JINT ( 

RND (1) * WL) + 1:WS$ = WS$ 

(I) sWS$(I) = WSS$(TI)D SWSS(TI) 

= WS$: NEAT 

HOME : VTAB 3: HTAB 9: PRINT 

"*** WORD SCRAMBLE ***#" 

VTAB 7: PRINT "HERE IS YOUR 

SCRAMBLED WORD : “ 

VTAB 10: HTAB 1@: INVERSE : 

FOR I = 1 TO WL + 4: PRINT 

" "$2 NEXT 

VTAB 11: HTAB 10: PRINT " " 

9: HTAB 10 + WL + 3: PRINT " 

"3s: VYTAB 12: HTAB 10: PRINT 
9: HTAB 10 + WE + 3: PRINT 

" "$s WTAB 13: HTAB 10: PRINT 
9s: HTAB 10 + WL + 3: PRINT 


3 

VTAB 14: HTAB 10: FOR I = 1 
TO WL + 4: PRINT " “ss NEAT } 

NORMAL NX 
VTAB 12: HTAB 12: FOR I = 1 fh 
TO WL: PRINT WS$(1T)5: NEXT 
VTAB 17: HTAB 12: FOR I = 1 
TO WL: PRINT CHR# (95)5: NEXT 


VTAB 2@: HTAB 1: PRINT "(CEN 
TER A-2 FOR THE LETTER... RE 
TURN WHENYOU ARE DONE.)" 

WP = 1 

FOR I = 250 * ANS TO 1 STEP 

- 1 

IF PEEK ( - 16384) 127 THEN 

GOTO 3214 

IF INT (I / 30) * 5@ = I THEN 

VTAB 12: HTAB 30: PRINT "TI 
ME: " INT (I / 50)" % 

NEAT =: RETURN 
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3210 


3220 


3230 


4030 


VTAB 17: 
ANS 


HTAB 11 + WP: GET 


(ANSS ) 8 THEN 3390 


(ANS$) = 21 THEN 34 


(ANS$) = 13 THEN 
IF ANS$S nA" 
THEN ANSS = 

WCOS(WP) = ANS$: PRINT ANS$5 

WP = WP + ds: IF WP WL THEN 

WP = 1 
GOTO 3207 
IF WOS(WP) = THEN 
CHR (95)5: GOTO 3320 
PRINT WCSC(WP) 5 

WP = WP - i: IF WP 

WP = WL 
GOTO 3207 
IF WCOS(WP) = THEN 
CHR (95)5: GOTO 3420 
PRINT WCS(WP) 5 

WP = WP + id: IF WP 

WP = 1 
GOTO 3207 


Tee AT 
“. 


OR ANSS 
CHRS (95) 


PRINT 


1 THEN 


PRINT 


WL THEN 


REM #*#%* END 


FOR I 
11+ tI: 
$(I[) = 
: VTAB 
WOSCT) 58 


= 1 TO WL: VTAB 12: 
PRINT WRE(T)5: IF WC 
WRS(T) THEN INVERSE 
17: HTAB 11 + Is: PRINT 
NORMAL :WC = WC + i 


HTAB 


NEXT : VTAB 20: 
- 958: IF WC = PRINT 
"CONGRATULATIONS PRINT “ 
YOU UNSCRAMBLED THE ENTIRE W 
ORD !": GOTO 404¢ 

PRINT "THE GAME IS OVER..." 

: PRINT “OUT OF “WL" LETTERS 

» YOU GOT “WC: PRINT "OF THE 
M CORRECT." 


HTAB 1: 
WL THEN 


CALL 
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RETURN 


A494@ INPUT "DO YOU WISH TO PLAY 
AGAIN? "SANS$: IF LEFTS (CAN 
S$,i) = "Y¥" THEN RUN 


4050 RETURN 


wre 


‘f 
ee eT Vaae= coe 


a 


This is an addicting game in which you try to consume all of the food squares 
before the Mubble Eaters consume you. A 9 by 9 arena houses the action. 
There are 64 food squares and three Mubble Eaters (ME’s). If on the first run 
you do not complete the mission, you still have another Mubble to finish what 
the first Mubble started. It is up to you to safely guide the Mubble to gluttony. 
Go to it! This program will be explained line by line. It was chosen because the 
use of graphics is such that most of the other programs can be understood if 
this program is understood. 


10 to 16 REM means remark. Anything may be construed as a remark. In this 
case, the REM statement is used to allow the program name to be written. 
Naturally, **rrrrrrrrr"* is not an actual REMark, but this statement (REM) 
allows the programmer to write the title in a computer-acceptable format. 


15 and 16 The REM statements are followed by nothing. Their purpose is to 
maintain space between the title and line 20 (for aesthetic reasons). 


20 GOSUB 1000 tells the computer to branch to line 1000 and to continue until 
the statement RETURN is encountered. When it is, the program will RETURN 
to line 20 and continue on to line 30. The colon which follows GOSUB 1000 is 
significant. .... A colon announces to the computer that a new instruction is 
forthcoming. An instruction which is preceded by a colon is exactly the same 
as an instruction preceded by a line number, with one important exception. If 
an instruction is a conditional (IF ..... THEN) the computer will perform the 
next sequential instruction if the condition is not met; but if the condition IS 
met, then every instruction on that line will be performed—even those 
instructions set off by a colon. What is present on lines 20-50 is a clumping of 
more than one instruction per line. You already know that a REM statement 
instructs the computer to ignore whatever follows it, so REM INSTS is written 
for your benefit, not the computer’s. INSTS stands for INSTRUCTIONS. 
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30-50 are the same format as line 20. This is the key to the structuring of 
BASIC programs. All the instructions are in 1000-1999, setup at 2000-2999, etc. 


60 When line 50 has been executed, the program is finished. END returns 
computer control to the user. You can have END anywhere in a program and 
even have it in several places as long as it does not get executed until the 
proper time! 


1001 REM *** INSTS This line serves to inform the reader that the following 
lines contain the instructions. 


1010 Line 1010 contains three instructions. TEXT is the instruction which 
changes the computer from the graphics (color) mode, back into the text (black 
and white) mode. NORMAL sets the the background color to black and the 
lettering color to white. HOME clears the screen (but only clears the screen of 
text, not color). It is standard practice to use this line in any program before a 
title screen is printed to ‘clear the decks’ of any text, graphics, or even garbage 
left over from a previous program. 


1020 Line 1020 contains three instructions. VTAB 2 translates to Vertical TAB 2 
lines. In other words, tab down two lines from the top of the screen. HTAB 10 
translates to Horizontal TAB 10 spaces. This means, tab over ten spaces from 
the left-hand margin. PRINT says, output to the screen whatever is between 
the quotes. If you give the instruction: PRINT “X” then the output will be X. If 
you give the instruction: PRINT X then the numeric value contained in the 
variable ‘X’ will be printed. In the case of line 1020, the character string *** 
MUBBLE CHASE *** will be printed on the screen two lines down from the 
top and ten spaces in from the left margin. 


1025 VTAB 5 This line instructs the computer to tab down five lines from the 
top of the page. 


1030 This line PRINTs, verbatim, that which is between the quotes (five lines 
down from the top of the page). 


1035 This line, in effect, PRINTs a blank line. The reason that this line is used 
is so that the text printed by line 1030 and the text to be printed by line 1040 
will be separated by a blank line. 


1050 This line contains two instructions. VITAB 23 tabs down 23 lines from the 


top of the page. The INPUT statement in this case serves only to hold up the 
program until you are ready to go on. 
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1060 This line contains five instructions. HOME clears the screen. VTAB 2 tabs 
down two lines from the top. HTAB 10 tabs over ten spaces from the left 
margin. PRINT outputs to the screen the material between the quotes, at a 
beginning position ten spaces from the left and two lines down from the top. 
After the PRINT statement is executed, the computer reads VTAB 5. This 
instruction says to skip down to the fifth line. 


1070 This line PRINTs the material between the quotes on the fifth line from 
the top. 


1090 (six instructions) HTAB 18 Horizontally TABs 18 spaces right. Next, the 
word ‘UP’ is printed. Then a blank line is printed (PRINT). Fourth, the 
computer is told to Horizontally TAB (to the right) 19 spaces. Then the letter ‘T’ 
is printed. Last, another blank line is printed below the ‘T’. 


1091 and 1092 finish the instructional chart which line 1090 began. 
1100 This line is the same as line 1050. 


1990 RETURN. The GOSUB 1000 in line 20 is completed by the required 
RETURN statement. Control is sent back to line 20, and then the program 
drops to line 30 which says to GOSUB 2000. This may seem a bit roundabout, 
but it is the basis of structuring the program into modular units. 


2000 : This line and 2002 do nothing but aid in the readability of line 2001. 


2001 REM *** SETUP This REMark tells you that the program setup is to 
follow. 


2015 This instruction allows the variable ME to assume six different values 
(ME (1,1) ME (1,2) ME (2,1) ME (2,2) ME (3,1) ME (3,2), and the variable SP to 
assume three different values. The instruction DIM is short for DIMension. 
The computer is being told that ME is now a two-DIMensional array, and that 
SP will become a one-dimensional table. Instead of occupying a single location 
in memory, ME is now capable of occupying six, and SP can occupy three. A 
subscript (the numbers in the parentheses, ie. (1,1)) tells the computer where 
to find a certain value (in memory). Within a subscript there are rows and 
columns. The first value is always the length of each row (ME and SP both 
have rows which are three places long), and the second value (if present) is 
the length of each column. Another way to view subscripts is to envision the 
numbers as being: row,column. That is, ME(3,1) is located in the third row of 
the first column. Following will be an illustration of how the arrays are stored: 
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COLUMN 1 COLUMN 2 


ROW1 ME(1,1) ME (1,2) 


~A Nat, 
‘a 
f ~~ 


\ 
ww 


ROW2 ME(2,1) ME (2,2) 


ROW3 3 ME (3,1) ME (3,2) 


This is a one dimensional array: 


ROW1 SP(1) SP(2) SP (3) 


Actually, an array is assumed to have a storage location reserved for all zero 
subscripts, such as ME(0,0) ME(0,4) ME(3,0), but their use is normally 
omitted. Also, the computer does not actually store tables or arrays in two or 
three dimensions. The computer stores the data in one long string. The 
illustration is to help you visualize how to access various memory locations. 


2030 PT is set to 0, and MU is set to 3 for reasons to be explained later. 


2040 (two instructions) GR changes the mode from text (black and white) to 
GRaphics (color). HOME clears the bottom four lines which is the text area 
when in the GRaphics mode. 


2041 This line specifies that all drawing is to be done in color 15 (white), until 
the color is changed. 


2042 (two instructions) This line causes two Horizontal LINes to be printed (in 
white). Both lines travel from the left of the screen (0) to near the right edge 

(38, the lowest it could go is 39). The screen is broken down into 40 horizontal 
units (0-39) and 40 vertical units (0-39). When a horizontal line is to be printed, 
the computer needs to know which of the 40 rows to draw the line into. In the 
case of line 2042, the two lines are being drawn in row 0 and row 38. 


2043 (two instructions) Line 2043 causes two Vertical LINes to be printed (still 
in white). This time the computer needs to know the column in which to draw 
the lines. The two lines are to be drawn in columns 0 and 38. What the result 
of lines 2040-2043 will be, is a white border traveling around the screen. 


2050 This line changes the color of future drawings from 15 (white) to 1 
(magenta). 
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2051 This line also bears close examination. The way to tell the computer to 
perform an action a certain number of times is by use of the FOR/NEXT loop. 
If you want a loop to be perform 6 times, the computer offers a number of 
ways to do this. The statement: FOR I = 1 TO 6 tells the computer to begin a 
loop with I equal to 1. Unless told otherwise, the value of I is incremented by 
one each time the loop is completed. After the sixth loop the value of I will 
change from 6 to 7. Since the FOR statement specifically said to perform the 
loop while I was equal to 1 through 6, the computer knows to stop looping 
when I = 7. Another way of telling the computer to loop six times would be: 
FOR X = 5 TO 10. By using the parameters 5 and 10, the loop will begin at X 
= 5 and continue until through X = 10. We could say FOR I = 1000 to 1005 
and also achieve a loop to be performed six times. There are other ways to 
create a loop. If you write: FOR X = 3 TO 11, then the value of X is 
incremented by one each time the loop is performed. But if you write: FOR X 
= 3 TO 11 STEP 2, then X is incremented by TWO each time the loop is 
performed. For the first time through the loop X = 3, then two is added to X, 
so X = 5 for the second time through, then X = 7, X = 9, X = 11, and finally 
X = 13 (and the loop is done). This additional feature, STEP, merely allows the 
programmer to regulate the increment of the loop controller. Line 2051 is: FOR 
] = 2 TO 34 STEP 4. To interpret, this loop is performed when I = 2, 6, 10, 14, 
18, 22, 26, 30, and 34. STEP 4 instructs the computer to increment X by 4, 
instead of by one, each time the loop is performed. 


2052 What we have here is a loop within a loop, also referred to as a nested 
loop. This second loop (referred to as the J-loop) is performed each time the I- 
loop is performed. 


2053 The I-loop gets further nested with the advent of the K-loop. Each time 
the I-loop is performed, the parameters of the K-loop will change. 


2054 This line instructs the computer to draw a magenta line beginning at 
position J and drawing up toJ + 2, and to draw the line at row K. Let's go 
back to line 2051 and see if we can follow this entire looping sequence. Line 
2051 instructs the computer to perform the I-loop from 2 to 34 incrementing by 
4. So 1 = 2. Line 2052 instructs the computer to perform the entire J-loop each 
time the I-loop is performed. J = 2 to 34 step 4, so to begin, J = 2. K = Itol 
+ 2, so to begin (since I = 2), K = 2 to 4. Next, a Horizontal LINe is printed 
from J (2) to J +2 (4) at row K (2). Remember, the entire K-loop is performed 
with each pass of the J-loop. Continuing the K-loop, add one to K (K = 2 to 4, 
now K = 3). Draw a horizontal line from J (2) to J +2 (4) at row K (3). 
Completing the first of 81 K-loops, add one to K (K = 2 to 4, now K = 4). 
Draw horizontal line from 2 to 4 at 4. Now that the K-loop is done, the 
computer can continue the J-loop by incrementing J by 4. After doing this (line 
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2052) the computer is again instructed to perform the entire K-loop. The K- 
loop, remember, makes line 2054 get performed I to I+ 2 times. Since I still 
equals 2, line 2053 can be rewritten as: FOR K = 2 to 4. Performing the K-loop 
for K = 2, 3, and 4, horizontal lines are drawn at 6 (J),8 (J+ 2) on row K. As 
you can see, the K-loop is entirely performed each time J is incremented. The 
J-loop is entirely performed each time the I-loop passes. To summarize, the I- 
loop is run just once, but has nine passes (a pass is an individual loop). The 
passes occur at 2,6,10,14,18,22,26,30, and 34. With each pass of the I-loop the 
entire nine passes of the J-loop are performed. With each of the nine passes of 
the J-loop, all three passes of the K-loop are performed. A total of 243 passes 
of the K-loop are made. With each pass a horizontal line is drawn at J,J +2 at 
row K. The 243 lines comprise the 81 magenta boxes you see on the screen. 


2055 As mentioned before, a very easy and useful method of looping is by 
performing a FOR/NEXT loop. The FOR statement begins the loop (and each 
pass), conversely, the NEXT statement ends the loop (and each pass). When 
the NEXT statement is encountered, the computer will increment the variable 
as instructed. In the given example (line 2055), the variable K will be 
incremented each time a pass is made. The value of K starts at two and is 
incremented by one until it is equal to four. When the K-loop is started anew, 
K reverts to two. The variable J will be incremented each time that K = 4 
(unless J = 34). The variable ‘TI’ will be incremented only when K = 4 andJ = 
34. In other words, when an instuction line (such as line 2055) contains more 
than one NEXT variable, then the loop represented by the first one (K) is 
performed until completed. Then J is incremented, and again the K-loop is 
performed until completed. When J = 34 and the K-loop is done, only then is 
‘TY’ incremented. Each time that the ‘I’ variable is incremented, the J-loop starts 
with J = 2. The looping process continues until, on the two hundred forty- 
third pass, K = 4,J = 34, and I = 34. 


2060 This line DIMensions the computer’s memory to accept MU as a two- 
dimensional array. Six locations are reserved for MU values, not just one. Two 
rows with three columns each are set aside in the computer’s memory. 


2070 A FOR/NEXT loop is started here, with ‘Tl’ beginning at 5 and growing to 
33 by increments of 4. 


2071 Nested within the I-loop is a J-loop, also starting at J = 5 and continuing, 
by 4, until J = 33. The entire J-loop (eight passes) is performed each time the 


I-loop makes one of its eight passes. 


2072 This line needs to be broken up into more digestible pieces. First, RND 
(1) will give a RaNDom number between 0 and 1. Actually, RND (7) also gives 
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you a random number between 0 and 1. Unless your computer has a special 
RND function, all random numbers are between zero and one. The random 
result is then multiplied by 4, giving a number between .00000004 and 
3.99999996. Next, the number 6 is added to the total. At this point go back and 
look at the command INT. INT changes RND (1) * 4 from a decimal into an 
INTeger. This is done by truncating (chopping off) anything to the right of the 
decimal point. The number 3.996 becomes 3 (not 4). Because of this. INT (RND 
(1) * 4) + 6 yields a random number between 6 and 9, not between 6 and 10. 
The result is that on each pass the color can be changed to 6, 7, 8, or 9. 


2073 This line instructs the computer to plot a point, in the color given by the 
RaNDom INtTeger function, at X,Y coordinates I,J. 


2074 As in line 2055, this line will increment J until J = 33, then ‘T’ will be 
incremented, J will revert to 5, and the looping procedure will continue until 
NEXT J, is reached when both IJ and J are equal to 33. At that point, the 
computer will drop down to line 2990 (the next instruction). 


2990 RETURN This line completes line 30, which instructs the computer to 
start a subroutine at line 2000, and to continue until the command RETURN is 
encountered. 


3001 The REMark *** PLAY informs the reader that lines 3000-RETURN control 
the play. 


3005 (nine instuctions) In this line, nine locations of ME are assigned values. 


3006 (six instructions) First, the color is set to 2 (dark blue). Second, a loop is 
started. Third, the three Mubble Eaters are plotted onto the screen. Fourth, 
NEXT completes each pass of the loop. Because there is only one loop, the I- 
loop, the NEXT command needs no argument. Fifth, MD is set to 1. Sixth, the 
variable HI is set to 0. 


3007 (twelve instructions) The first six instructions set values for the MUbble. 
Then values are given to the mubbles beginning X,Y coordinates, MX,MY. 
Remember, unlike a typical graph, the origin for the screen is in the UPPER 
left-hand corner, so the bottom left hand corner is at 0,39. The ninth 
instruction sets the color (of the MUbble) to 4. Next, a loop is started. The 
eleventh instruction plots the MUbble at the X,Y coordinates which are given. 
Finally, the NEXT command completes the I-loop. 


3010 (two instructions) First, MU is decremented by one. Then a test is made 


(MU < 0), and if the test (condition) proves to be true, the subroutine started 
by line 40 will be completed by RETURN. 
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3012 (six instructions) COLOR= 0 sets the color to 0 (black). A black, 
Horizontal LINe going all the way across the screen (from 0 to 39) to be drawn 
at row 39 is called for in the second instruction. Then the color is set to 15 
(white). Next, a condition is made. If true, a loop is started, the point at (I * 
2),39 is plotted each time a pass is made, and the NEXT statement marks the 
end of each pass. 


3015 Remember, HOME only clears text, not color. In the GRaphics mode, 
only the bottom four lines are available for text. Next, a blank line is PRINTed; 
followed by the material between the quotes. The loop FOR I = 1 TO 2000 is 
merely a stalling tactic. The result of the loop is that the message <<< READY 
Leeee >>> will stay on the screen while I is incremented by one, from 1 to 
2000. This process takes from two to five seconds. 


3020 Here we have a nested GOSUB. Line 40 initiated the subroutine 
beginning at line 3000. Now line 3020 instructs the computer to perform a 
subroutine within a subroutine. A REMark is made to explain the purpose of 
the subroutine at line 3300. 


3025 This line is performed AFTER the subroutine beginning at line 3300. If 
you have eaten all 64 food points, then the subroutine (started by line 40) is 
completed. 


3030 Here is another example of a nested GOSUB. The REMark tells us the 
purpose of the subroutine is to move the mubble eaters. 


3040 ‘HI’ is a special value. In most cases it is equal to “no” (which is “NOT 
HI”). If HI is equal to “yes”, then, according to the program, the MUbble has 
been eaten by a Mubble Eater. If this is the case, then there is no need to go to 
3020 (THEN 3020). 


3041 To begin with, a loop is to be performed 60 times. In the loop, the 
variable XX is set to equal PEEK (-16336). This instruction (PEEK (-16336)) 
causes a clicking sound to be emitted from the speaker. This clicking sound is 
heard each time the Mubble eats one of the colored foodpoints. The NEXT 
statement concludes each pass. 


3045 The FOR statement marks the start of a loop. The color is set to 0 (black), 
so when the Mubble Eaters move, after the Mubble moves, the positions on 
the maze where the Mubble Eaters were will not remain blue, but will be 
replaced with background colored points. 


3050 This line draws the MUbble at its new position in the maze. This line is 
performed each time that the Mubble is moved. 
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3055 This line sends the program back to line 3005. 


3300 Don’t fret! Although this line appears to be a confusing conglomeration of 
variables, there is a definite purpose for this line. Before starting with an 
explanation, there are two important facts which you must know. One, MX 
and MY are the MUbbles X,Y coordinates. Two, the food points are located at 
specific intervals. Armed with this knowledge, you have a good chance of 
understanding what follows. The 64 food points are each located at an 
intersection. The X,Y coordinates at these 64 points are: 


5,9 5,9 5,13 9,17 5,21 5,29 5,29 5,33 

9,5 9,9 9,13 9,17 9,21 9,25 9,29 9,33 
13,5 13,9 13,13 13,17 13,21 13,25 13,29 13,33 
17,5 17,9 17,13 17,17 17,21 17,25 17,29 17,33 
21,5 21,9 21,13 21,17 21,21 21,25 21,29 21,33 
25,9 25,9 25,13 25,17 25,21 25,25 25,29 25,33 
29,9 29,9 29,13 29,17 29,21 29,25 29,29 29,33 
33,9 33,9 33,13 33,17 33,21 33,25 33,29 33,33 


These points have one important thing in common. If you add three to any of 
the eight different X coordinates, the sum will be an exact multiple of four. 
Therefore, MX + 3 divided by 4 will be an integer, and (MX + 3) /4 will be 
equal to INT (the integer value of) (MX + 3)/4. Also, if you add three to any 
of the eight Y coordinates, then the sum will be evenly divisible by four; and 
(MY + 3)/4 will be equal to INT (MY + 3)/4. The only times when both (MX 
+ 3)/4 = INT (MX + 3)/4 and (MY + 3)/4 = INT (MY + 3)/4is at one of 
the sixty-four intersections. If, indeed, the Mubble is at an intersection, then 
FL equals “yes”. If the MUbble is not at one of the sixty-four intersections, then 
FL equals “no”. 


3301 This line is a conditional (a test). If FL is equal to “yes”, then the 
computer will skip to line 3320. 


3304 Each key on the keyboard has a coresponding numeric value referred to 
as an ASCII value. The keyboard ASCII values begin at 128 and proceed 
upward. PEEK (-16384) is an instruction which tells the computer to search the 
entire keyboard to see if any of the keys have been pressed. If they have, PEEK 
(-16384) will be equal to the ASCII value of whichever key was pressed. In 
other words, if any character on the keyboard was pressed, the value of PEEK 
(-16384) is going to be greater than 128. 


3305 The variable KEY is set to the ASCII value of the key initially recognized 
by PEEK (-16384). As was mentioned before, the keyboard character ASCII 
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values begin at 128. For the sake of understanding, 128 is subtracted from 
PEEK (16384). 


3310 This line checks to see if the KEY pressed was I. The ASCII value for ‘T’ is 
73. If KEY is equal to 73 (I), then the variable MD (Mubble Direction) is set to 
2. The computer is then told to branch to line 3319. 


3311 This line checks to see if the KEY pressed was K. K is the game command 
which tells the Mubble to head west. If K was pressed, KEY is equal to 75, and 
the Mubble’s Direction (MD) is set to 1. 


3312 This line checks to see if the KEY pressed was M. The ASCII value for the 
letter M is 77. If, indeed, M was pressed, then Mubble Direction (MD) is set to 
4 (undoubtedly this translates to MD = down). 


3313 This line checks to see if the KEY pressed was J. If KEY equals 74, then 
the Mubble is going to head east. As in the previous three statements, the 
program will branch to line 3319 if the condition is met. 


3315 This line will be performed only if KEY does not equal either 73 (I),74 
(J),75 (K), or 77 (M). If none of the four conditions is true, then the program 
will bypass 3319 and go to 3320. 


3319 This instruction, POKE 16368,0, rests the keyboard strobe, so that new 
information can be accepted from it. Simply, it clears the keyboard so that 
PEEK (-16384) can read new input, not continually reread the first key that was 
pressed. 


3320 This line sets X2 equal to the Mubble’s X coordinate, and Y2 equal to the 
Mubble’s Y coordinate. 


3321 If Mubble’s Direction is equal to 1 (west), then add one to the X 
coordinate. If the mubble is headed west (right), then the value of the X 
coordinate increases with each move. 


3322 If Mubble’s Direction is equal to 2 (up), then subtract one from the Y 
coordinate. Because the origin is in the upper left-hand corner, the value of the 
Y coordinate increases as Y travels down the screen. To illustrate, as a point 
descends from the upper left-hand corner to the lower left-hand corner, the 
X,Y coordinates would look like this: 0,0 (at the origin), 0,1 0,2 0,3 0,4 0,5 0,6 
and so on until, at the bottom of the screen we have 0,39. 


3323 If Mubble’s Direction is equal to 3 (east), then subtract one from the X 
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coordinate. As the mubble moves to the left (east), the value of the X 
coordinate is decremented. 


3324 If Mubble’s Direction is equal to 4 (south), then add one to the Y 
coordinate. As the mubble moves down (south), the value of Y is increased. 
This is due to the fact that the origin is in the upper left-hand corner. 


3330 This line checks to see if either coordinate is out of the range of the maze. 
If it is, the subroutine is completed (RETURN), and the computer waits for you 
to input a viable keyboard character. 


3337 It has already been determined that X2,Y2 are the X,Y coordinates of the 
mubble. SCRN returns the color value of the present (X,Y) cursor location. If 
the X,Y coordinates on the screen are equal to COLOR = 4. In other words, if, 
at coordinates X2,Y2, the SCReeN contains a mubble (the mubble is a greenish 
color (COLOR = 4)) then skip to line 3345. 


3340 This line instructs the computer to check and make sure that the color at 
X2,Y2 is not black (SCRN X2,Y2 < > 0 (black)), and if it is not black, the 
variable XX is set to be PEEK (-16336) + PEEK (-16336) - PEEK (-16336) + 
PEEK (-16336). This equation may appear to be about as clear as a Chinese 
newspaper, but it is really not difficult to understand. Although XX appears to 
be set to equal a string of PEEK (-16336)'s, this is not the case. When the 
computer attempts to locate the value of PEEK (-16336), it is instructed to flick 
the toggle switch on the speaker. The result is that a short clicking sound is 
emitted. In the above equation, PEEK (-16336) appears four separate times, so 
the clicking sound is made four times. Because the clicks are emitted one right 
after the other, only someone with exceptional hearing can differentiate the 
one short click as being composed of four, shorter clicks. Remember, line 3300 
ascertained that mubble was at a possible foodpoint location. Because the 
location was not black (line 3340) or mubble colored (line 3337), the location 
must have contained a foodpoint, and as a result, the player scores a PoinT PT 
= PT +1). Then the program checks to see if all 64 foodpoints have been 
scored. If they have, then the subroutine is completed by the RETURN 
command. 


3345 This line is responsible for both moving the mubble ahead and replacing 
the mubble’s last position with a black square. First, the color is set to 0 (black). 
Then, the hind third of the mubble’s previous position, MU(1,1) and MU(1,2) 
is replaced by a black spot. But don’t fret, the color is changed to the mubble’s 
greenish color (COLOR = 4), and the point where the mubble has moved to 
(the front one-third) is plotted. Last, the mubble’s previous middle one-third 
becomes his rear one-third: MU(2,1 becomes MU(3,1), MU(2,1) becomes 
MU(2,2), MU(2,2) becomes MU(3,2). 


115 


3350 This line sets the new, front one-third coordinates into the memory 
locations MU(3,1) and MU(3,2). The new X coordinate for the mubble,X2, is 
now put into MX; and the new Y coordinate is moved into MY. is completes 
the task to be handled by this subroutine so it RETURNs. 


3400 This line begins a loop which consists of three passes. 


3402 Since there are three Mubble Eaters, the equation to check to see if they 
are at one of the 64 intersections has to be repeated three times. As with line 
3300, if both conditions are met, then FL is, in effect, equal to ‘yes’. 


3405 With each pass of the loop, FL is roughly equivalent to ‘yes’ or to ‘no’. If 
FL is ‘no’, then the program skips to line 3430. 


3407 This line determines the Mubble Eaters’ route of pursuit. The equation 
INT ((RND (1) * 6) + 1 will yield an integer between 1 and 6. The function of 
the ON command is to send the program to the corresponding line number. 
What this means is, if the random number turns out to be one, then go to the 
FIRST line number listed (3410). If the random number is five, then the 
program will branch to the fifth line in the list of six (3430). There is an equal 
chance that the random number will be equal to 1,2,3,4,5, or 6. For each of the 
six possibilities, the program will branch to a certain line number. Following 
will be a list of the six random numbers, and the line number where the 
number will cause the program to branch. 


1-3410, 2-3410, 3-3410, 4-3420, 5-3430, 6-3430 


Each number has a one-in-six chance of being the random number, and 
because there are only three different line numbers in the list of six, there are 
different odds of branching to the three lines. If the random result is 1, 2, or 3, 
then the program will GO TO line 3410. There is a 50-50 chance (three in six) 
that this will happen. There is only a one-in-six chance that the the R8NDom 
number will be four, and the program will go to line 3420. The random results 
five and six both cause the program to GO TO line 3430. The odds of this are 
two-in-six. 


3410 Another ON statement, which utilizes a random number function, is 
demonstrated in line 3410. The random result will be either one or two. If one, 
then the program will GO TO 3411; if the random result is two, then the 
program will branch to line 3413. 


3411 Remember that the program is in a three-pass loop. This line compares 
the mubble’s X coordinate to that of one of the three Mubble Eaters. If MX is 
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less than the Mubble Eater’s X coordinate then the MUbble is to the left (east) 
of the Mubble Eater. Using the numbers 1 through 4 to indicate the four 
directions, 1 = west (right), 2 = north (up), 3 = east (left), and 4 = south 
(down), the value of ME(I,0) assumes the value of the direction (1-4) that the 
Mubble Eater should go. 
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3412 This line is the companion of line 3411. If the MUbble’s X coordinate (MX) 
is greater than one of the three Mubble Eaters’ X coordinate, then the mubble 
is west (left) of the ME’s position, so ME(I,0) assumes the value which will 
later instruct the ME to move to the left. As in line 3411, if the condition is 
true (MX > ME(I,1)) then the program branches to line 3430. Notice that if the 
Mubble Eater is on the same lateral plane (has the same X coordinate), that is, 
if the ME is on the same vertical line as the mubble, then the program falls 
through and starts trying to track the mubble by closing in on its Y coordinate 
(lines 3413 and 3414). 


3413 Lines 3413 and 3414 have the same function as 3411 and 3412. The Y 
coordinate is the argument used for comparison. If the mubble’s Y coordinate 
(MY) is smaller than the ME's Y coordinate, then the mubble is north (up), 
relative to the position of the ME. 


3414 Likewise, if MY is greater than the Mubble Eater's Y coordinate, then the 
MUbble is south (down), relative to the position of the mubble eater. 


3420 If the random number generated by line 3407 is four or if at 3413 MY is 


equal to ME(I,2), then line 3420 will be performed. This line gives the 
directional indicator (ME(I,0) a random value of 1,2,3, or 4. 
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3430 Here the new coordinates for one of the ME’s are set (using the 
information gained in lines 3411-3414). 


3435 ME(I,0) is the directional indicator. To interpret, if ME(I,0) is equal to 1, 
than it is time to head east (right). This is accomplished by adding one to the 
ME’s new X coordinate (X2). 


3436 This time the line checks to see if the directional indicator says to “fly 
north.” If so, this movement will be achieved by subtracting one from the ME’s 
new Y coordinate. 


3437 If ME(I,0) equals three, then the ME needs to travel west. This is done by 
summarily decrementing X2. If you find it difficult to visualize how this will 
result in the ME moving west, take out a piece of graph paper and experiment 
(keeping the origin in the upper left-hand corner.) 


3438 Finally, if the mubble is south (down) in relation to the ME, then by 
increasing the value of the Mubble Eater’s new Y coordinate, the ME will, 
indeed, move down. 


3440 The function of this line, is to see if the ME’s new X,Y coordinates (X2, Y2) 
are headed out of the maze boundaries. If they are, then the program branches 
to 3490 where corrective action will be taken. 


3445 This instruction is very interesting. Its function is to remember what color 
the SPace the Mubble Eater is on was before it got there. The SCRN command 
reads the color off the screen and stores it in SP(I). Then, when the Mubble 
Eater has vacated its previous spot, the space’s original color is restored. This 
way, the mubble eater does not leave a trail void of foodpoints, and it does not 
leave a dark blue trail either. To experiment, change line 3445 so that it reads: 
3445 COLOR= 9, or 3445 COLOR= 2 or 3445 COLOR= 0. After making the 
change, run the program. Perhaps any misunderstandings will become clear. 


3460 The foodpoints are plotted in the colors six through nine. This line checks 
to see if SP(I), which is equal to SCReeN X2,Y2 (see 3447), is a foodpoint or 
not. If not, SP(I) reverts to 0. 


3490 This line checks to see if a Mubble Eater has caught the MUbble. Because 
the MUbble occupies three spaces, the test has to verify the Mubble Eaters 
coordinates on the different points. If the coordinates of a Mubble Eater are the 
same as one of the three sets of MUbble coordinates, then the MUbble is done 
for. In this program, when the MUbble is eaten, recorded by setting HI (for 
HIt) to one. 
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3495 The NEXT statement ends each pass of the loop begun on line 3400. 
When I = 3, this instruction ends the loop. 


3990 RETURN completes the GOSUB. If this statement is omitted, the 
computer will stop the run to inform you of the error. 


4000 This line merely serves to make 4001 more readable. 


4001 This REMark tells us that the following lines comprise the *** END 
routine. 


4002 A filler. 


4010 (two instructions) HOME clears the four lines reserved for text. Next, the 
end-of-game message is printed. 


4015 A test is run to see if you scored all 64 points. If you have, the message 
between the quotes is printed, and then the RETURN statement returns the 
program to line 50 and then line 60. 


4020 The number of foodpoints you score is contained in location PT. 
Assuming 4015 was an invalid conditional, 4020 will print the exact message 
you have between the quotes, followed by the contents of the variable PT, and 
finally, the second half of the message which is between the quotes, will be 
printed precisely as it was written. 


4990 If and when line 4020 is finished, this line RETURNs the program to line 
50. Then the program continues on to line 60, where the flow is ended. 


\ ey / 
it, A ) 


ae 


* “ 
Nyy eS wl 


a 


119 


10 REM HHEKEHHKKEKEKKKKKHKHKKEKKSE 


11 REM **+%# HH 
if REM **%* MUBBLE CHASE **+# 
i3 REM **# oH 
14 REM KEKE KKHHKEKRKERHEKRKEEE 
15 REM 
16 REM 


=@ GOSUB 1000: REM INSTS 
30 GOSUB 2000: REM SETUP 
40 GOSUB 3000: REM PLAY! 
~@ GOSUB 4000: REM !END! 
60 END 
100d : 
i@0@i1 REM *** INSTS 
1002 : 
1010 TEXT : NORMAL : HOME 
i@20 YTAB 2: HTAB 10: PRINT "*** 
MUBBLE CHASE ***" 
1925 YVTAB 3 
1030 PRINT “IN THIS EXCITING GAM 
E> YOU CONTROL THE MOVEMENT 
OF THE HUNGRY LITTLE CREATU 
RE WE CALL THE MUBBLE. THE 
MUBBLE SCURRIESTHROUGH A MA 
ZE» TRYING TO EAT UP ALL OF 
THE FOOD POINTS." 
1035 PRINT 
i1@40 PRINT “UNFORTUNATELY :+ THERE 
ARE THREE MUBBLE- EATERS I 
N THE SAME MAZE» WHO WANT TO 
CATCH AND EAT THE POOR M 
UBBLE." 
i1@30 YVTAB 23: INPUT "HIT RETURN 
WHEN READY TO CONTINUE : "$A 
NS$ 
1@6@ HOME : VTAB 2: HTAB 10: PRINT 
"*#** MUBBLE CHASE ***": VYTAB 
rs) 
1070 PRINT "YOU MUST MANEUVER TH 
E MUBBLE TO THE FOODPOINTS A 
ND AWAY FROM THE MUBBLE EATE 
RS. YOU ARE ALLOWED TO LOSE 
THO MUBBLES» BUTWHEN THE THI 
RD MUBBLE IS EATEN» THE GAME 
IS OVER," 
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1075 
1080 


1090 


1091 


1092 


1180 


1990 
= O00 
=O01 
2002 
2015 
2030 
O40 
O41 
2042 


2-043 


2090 
2@91 
2032 
2033 
2094 
203595 
068 
20/0 
2071 
2072 


2073 
2074 
2990 
3000 
3001 
3802 


PRINT 

PRINT "MOVEMENT OF THE MUBB 
LE IS CONTROLLED BY USING TH 
E LETTERS I+ J» K» AND M," 
HTAB 18: PRINT "UP": PRINT 

HTAB 19: PRINT "I": PRINT 


PRINT " LEFT - J 

K - RIGHT": PRINT 

HTAB 19: PRINT "M": PRINT 

HTAB 18: PRINT “DOWN" 

VTAB 23: INPUT "HIT RETURN 
WHEN READY TO CONTINUE : "SA 
NS$ 

RETURN 


REM *** SETUP 


DIM ME(3+2) »SP(3) 

PT = @:MU = 3 

GR : HOME 

COLOR= 15 

HLIN @+38 AT @: HLIN 0538 AT 
38 

VLIN @+38 AT @: VYLIN 0538 AT 
38 


COLOR= 1 

FOR I = 2 TO 34 STEP 4 
FOR J = 2 TO 34 STEP 4 
FOR K = I TO I + 2 


HLIN JosJ + 2 AT K 

NEXT KoeJel 

DIM MU( 3:2) 

FOR I > TO 33 STEP 4 

FOR J > TO 33 STEP 4 
COLOR= INT (¢( RND (1) * 4) + 
6 

PLOT I+J 

NEXT Jol 

RETURN 


REM **% PLAY 


121 


edd dt 


3005 


3006 


3007 


3010 


3012 


MEC1Le1l) = LTEMEC1+s2) = 1:MEC2 
91) = S7EMECSs2) = LtME(3el) 
= SO7:ME( 392) = 37:ME(1+0) = 
1:ME(2»*0) = G:ME(3+0@) = 3 
COLOR= 2: FOR I = 1 TO 3: PLOT 
ME (CT +1) »ME(Ts2): NEXT :MD = 
1:HI = @ 
MUCLs1) = LEMUC1ls2) = 37s MU 
2r1) = 2IMUlCS+2) = B7EMUC3el 
) = GrMUC3+2) = B7EMA = BMY 
= 37: COLOR= 4: FOR I = 1 TO 
3: PLOT MUCT +1) »sMUCITs2): NEAT 


MU = MU - i: IF MU @ THEN 
RETURN 
COLOR= @: HLIN @0+39 AT 39: 


COLOR= 15: IF MU @ THEN FOR I=l 


TO 


3015 


3820 
3025 
3830 


3O40 
3041 


3O@45 


3050 


3055 
3065 


MU: PLOT I * 2:39: NEAT I 
HOME : PRINT : PRINT " 
<i" READY «eeee Fee": FOR 
I = 1 TO 2000: NEAT I: HOME 


GOSUB 3300: REM MOVE MUB 
IF PT = G4 THEN RETURN 
GOSUB 3400: REM MOYE MUB E 


ATERS 
IF NOT HI THEN 3020 
FOR I = 1 TO GO:xXK = PEEK 


( - 16336): NEAT 

FOR I = 1 TO 3: COLOR= SPCI 
): PLOT ME(T +1) »sME(Ts2):SP(I 
) = O: NEXT 

PLOT MUC1+s1) *sMUC1+2):s PLOT 
MUC2 91) »MUC292)2 PLOT MUC3e1 
Y)»eMUC3 +2) 

GOTO 3005 
MUCLs1) = LEMUCLs2) = 37sMUC 
291) = 2sMUC2s2) = SB7EMUC3 +l 
) = BeMUlC3+2) = SB7EMA = BiMY 
= 37: COLOR= 4: FOR IT = 1 TO 
: PLOT MU(CT+1) »>MUCI»2): NEXT 
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3300 


3345 


FL = ((MX + 3) / 4) = INT ( 
C(MM + 3) / 4)) AND ((MY + 3 

» s a) = INT CCCMY + 3) / 4 
)) 

IF NOT FL THEN 3320 

IF PEEK ( - 16384) 128 THEN 
3320 
KEY = PEEK ( - 16384) - 128 
IF KEY = 73 THEN MD = 2: GOTO 
3319 

IF KEY = 75 THEN MD = 1: GOTO 
3319 

IF KEY = 77 THEN MD = 4: GOTO 
3319 

IF KEY = 74 THEN MD = 3: GOTO 
3319 

GOTO 3320 

POKE - 16368+0 

(2 = MX:¥2 = MY 

IF MD = 1 THEN X2 = X2 + 1: 
GOTO 3330 

IF MD = 2 THEN Y2 = Y2 - 1: 
GOTO 3330 

IF MD = 3 THEN X2 = X2 - 1: 
GOTO 3330 

IF MD = 4 THEN Y2 = Y2 + 1 
GOTO 3330 

IF X2 1 OR X2 37 OR Y2 
10R Y2 37 THEN RETURN 

IF SCRN( X2+¥2) = 4 THEN 3 
345 

IF SCRN( X2,Y2) < ® THEN 
MX = PEEK ( - 16336) + PEEK 
( - 16336) - PEEK ( - 16336 

) + PEEK ( - 16336):PT = PT 

+ 1: IF PT = G4 THEN RETURN 
COLOR= @: PLOT MUC(i+1) »MUC1 
12): COLOR= 4: PLOT X2+¥2:MU 
C(1e1) = MUC291)2MU(291) = MU 


- ) .@ mi yl 
Fy il i! 


(391) :sMUC1+2) = 
se) = MUCS+2) 


MUC2s2)2MUCe 
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3350 MU(3+1) = XZ:MU(392) = Y2:MX 
= X2:MY = YZ: RETURN 
3400 FOR I = 1703 


S402 FL = ((MECI+1) + 3) / 4) = #INT 
(CCMECT +1) + 3) / @)) AND (( 
ME(Is2) + 3) / 4) = INT ((¢ 


ME(ITs2) + 3) / 4)) 
3405 IF NOT FL THEN 3430 
S407 ON jINT ¢( RND (1) * G) + 1 GOTO 
3418 +3410 5341013420 +3430 +343 
@ 
3410 ON INT ( RND (1) * 2) + 1 GOTO 
34113413 
S411 IF MX <= MECI+1) THEN ME(T + 
) = 3: GOTO 3430 
S412 IF MX = ME(I+1) THEN ME(T +@ 
) = 1: GOTO 3430 
3413 IF MY = ME(T+»2) THEN ME(T +@ 
) = 2: GOTO 3430 
S414 IF MY = ME(T»2) THEN ME(I+@ 
) = 4A: GOTO 3430 
3420 ME(I+@) = INT ( RND (1) * 4 
) + 1: GOTO 3430 
3430 K2 = MECTs1):¥2 = MEC(I +2) 
S435 IF ME(I+s@) = 1 THEN X2 = 
+ 1: GOTO 3440 
S436 IF ME(I+@) = 2 THEN Y2 
-~ 1: GOTO 3440 
S437 IF ME(T+@) = 3 THEN X2 = X2 
- 1: GOTO 344¢@ 
3438 IF ME(I+@) = 4 THEN Y2 = Y2 
+ 1: GOTO 3440 
S440 IF x2 < 1 OR X2 3 37 OR Y2 < 
1 OR Y2 = 37 THEN 34990 
3445 COLOR= SP(I): PLOT ME(CTI 51)» 
MECTs2):sSP(I) = SCRN( XK2sY¥2 
J): COLOR= 2: PLOT X2s¥Y2:ME(I 
91) = X2:ME(T +2) = ¥2 
346@ IF SP(I) < G THEN SP(I) = @ 


-—< 
he 
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3490 IF (ME(I+1) = MUC1+1) AND M 
E(I»2) = MU(1+2)) OR (MEC(T sl 
) = MU(2Z+1) AND ME(TI+2) = MU 
(27,2)) OR (MEC(T +1) = MUC3s1) 
AND ME(I+2) = MU(3s2)) THEN 
HI = 1 

3495 NEXT : RETURN 

3990 RETURN 


4000 : 

4001 REM *** END 

A002 : 

4010 HOME : PRINT "THE GAME IS 0 
WER Fit" 


4015 IF PT = G4 THEN PRINT “YOU 
GOT ALL THE POINTS (YOU WIN 
Plo": RETURN 
4020 PRINT "YOU SCORED "PT" POIN 
TS.e++++GO0D EFFORT" 
4990 RETURN 


mill 


ffl 
ail 
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ml 


This game requires good timing. You are the pilot of a B19 Bomber trying to 
sink enemy ships. The graphics used in this game are simple but effective. To 
illustrate the point, run the program. The plane is green, the ship is purple, 
and the water is blue. In order to demonstrate how these three distinct forms 
are drawn, you will need to stop running the game (by typing Ctrl C). Type: 
LIST-3000. This command will list all of the program lines through (-) 3000, 
including 3000 (if it exists). Line 2060 sets the water to color =2 (dark blue). 
Change this line to color = 6 or color = 12. After you are done experimenting, 
change 2060 back to its original configuration. Lines 2070 and 2080 instruct the 
computer where to draw the water, and how long to make it. To test this, 
change 2070 so it reads HLIN 0,20 AT 39, and then run the program. Likewise, 
experiment with line 2080. Next type: LIST-4000. To determine the function of 
lines 3100-3300, make changes in these statements and then run the program. 
The various subroutines are identified with remarks. If you would like to 
experiment with any of these routines, please do. Don’t worry about making 
program changes. Your modified program will disappear when you turn off 
your computer or reload the program from the diskette. Unless you type: SAVE 
AIR ATTACK, none of the changes which you make will affect the program 
that is stored on the diskette. You should always save any modified versions 
you create under a new name such as AIR ATTACK 1, AIR ATTACK 2, or even 
‘JOE’S PROGRAM’ 
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1070 
108¢ 


1idgg@ 
1100 


11190 


REM 


HEEKHEKRKKEKKHEKRKHEKRKEKKEK 


REM x**+% HF 

REM **%* AIR ATTACK «x 

REM x**% %X¥ 

REM KEE KKHEHKHEEEKHHREHEE 

REM 

REM 

GOSUB 100@: REM INSTS 
GOSUB 2000: REM SETUP 
GOSUB 3000: REM PLAY! 
GOSUB 4000: REM '!END! 


END 
REM 


SL=SHOTS LEFT. YOU MAY 
MAKE A LONGER GAME BY GIVING 


MORE SHOTS EN LINE 20390 


REM #**%* INSTS 

TEXT HOME NORMAL 

VTAB 3: HTAB 11: PRINT "*#% 
AIR ATTACK *##" 

VTAB 7 

PRINT "IN THIS GAME YOU ARE 


A FIGHTER PILOT. 
E BY 


Y 


OMBS AND SINKING IT." 
PRINT 


PRINT “TQ DROP A BOMB, SIMP 
PRESS ANY KEY ON THE KEYB 
YOUR SCORE FOR HITTIN 
G A SHIP WILL DEPEND ON WHIC 
H PART OF THE 


LY 


OARD. 


iT 
4 


PRINT 


PRINT 
DECK » 


REWARDED WITH 3@ POINTS." 
VTAB 23 
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Ware C 
. Wy . 


YOU SCOR 
HITTING ONE OF THE ENEM 
SHIPS WITH ONE OF YOUR 


SHIP YOU HIT 


"IF YOU HIT THE LOWER 
YOU SCORE 10 POINTS. 
IF YOU HIT THE UPPER 
YOU SCORE 208 POINTS. 
HIT THE SMOKE- 
VE DONE VERY WELL» 


DECK » 
IF YOU 
STACK YOQU HA 
AND ARE 


UM 


v 
eeerTT ? 
! 
t 


1120 


1130 


1140 


115¢@ 


1160 
1170 


1180 
2000 
20190 
2020 
2030 
2040 


2030 
-060 
2070 
OBO 
-09@ 
£100 
3BOO 
3010 
3820 
30308 
3840 


3050 
38608 


3070 
3O8O 
3890 


"PRESS #RETURN*® TO CO 
"SANS 
VTAB 3: 
ATTACK *###": 


INPUT 
NTINUE 
HOME 
"##* AIR 


HTAB i1: PRINT 
VTAB 7 


PRINT "YOU HAYE AN ARSENAL 
OF 15 BOMBS. THE SPEED OF 
EACH SHIP WILL VARY» SO MAK 
E EVERY SHOT COUNT! ° 
PRINT PRINT "GOOD LUCK !! 
} 

VTAB 23 

INPUT "PRESS *RETURN*® TO CO 
NTINUE "SANS 

RETURN 


REM ##%* SETUP 


SL = 15 

REM LINE 2820 DRAWS THE W 
ATER 

GR 

COLOR= 2 


HLIN @*39 AT 39 

HLIN @+39 AT 38 
AX = @:5XK = 33:55 = 1 
RETURN 


REM #*#*% PLAY 


HOME 
VWTAB 22: 
"SHOTS LEFT: 
"TS 

GOSUB 3090: 
GOSUB 3130: 
RETURN 
GOSUB 3270: 
GOTO 3050 
COLOR= @: 
2“: HLIN A&A 
AX + 6:0 


CALL - 
| SL 8 


938: PRINT 


SCORE: 


REM PLANE 
IF SL = @ THEN 
REM SHIP 


HLIN AX+sAX + BG AT 


+ 1*AX + G AT 1: PLOT 
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3100 REM LINE 3110 CHECKS TO §& 
EEIF THE PLANE IS AT POSITIO 
N -1. IF SO» THE PLANE I5 OQ 
FF THE SCREEN. AX REVERTS T 
0 33, THE RIGHT HAND SIDE O 
F THE PICTURE. FROM THERE T 
HE CYCLE BEGINS AGAIN, 


3110 AX = AK - 1: IF Ax =a @ THEN 
AX = 33 


312@ COLOR= 4: HLIN AxAsAK + G AT 
2: HLIN AX + 1%9AK + GB AT 1: PLOT 
AX + G+@: RETURN 

3130 IF FF THEN 3160 

3140 IF PEEK (¢ - 16384) =a 128 THEN 
RETURN 

3150 FF = 1: POKE - 16368;@:FX = 
AX + 3S:IFY = 2 

316@ COLOR= @: PLOT FAsFY 

3170 FY = FY + 1 

318@ IF SCRN( FxAoFY) = @ THEN COLOR= 

13: PLOT FasFY: RETURN 
3190 IF SCRN( FA sFY) = 2 THEN 3 


= T5 + (38 - FY) * 10 

3210 SC = @: COLOR= @: HLIN Sk+SX 
+ G AT 37: HLIN SX + 3:+SXK + 
> AT 36: PLOT SX + 43235 

3220 SX = 33:55 = 1:5C = @ 

3230 COLOR= 2: HLIN FX - 19FX + 
1 AT 37: PLOT FX - 2:36: PLOT 
FX*+3G: PLOT FX + 2936: PLOT 
FX - 3935: PLOT FXs35: PLOT 
FA + 3935 

3240 COLOR= @: HLIN FX - 15FXK + 
1 AT 37: PLOT FA - 2:36: PLOT 
FX»3G:s PLOT FX + 2:36: PLOT 
FA - 3935: PLOT FxX+35: PLOT 


FX + 3935 

3250 FF = @:S5L = SL - 1: POKE - 
16368 »@ 

3260 VTAB 22: CALL - 958: PRINT 
"SHOTS LEFT: "SL" SCORE: 


"TS: RETURN 
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3270 


3280 


SC = $C + i: IF SC =a 55 
RETURN 
SC = @: COLOR= @: HLIN SA 
+ G6 AT 37: HLIN SX + 35K 
S AT 3G: PLOT SA + 4235 
SX = SX + 1: IF SX =A 33 
SX = @:S5S5 = INT ¢ RND (1 
3) + 1:5C = 55 

COLOR= 1: HLIN SASK + G 
37: HLIN SX + 395% + 3 AT 

PLOT SX + 435: RETURN 
REM *** END 

HOME PRINT "THE GAME I 
VER "s PRINT "YOUR SCORE 
"TS" 1S 8 5 

IF TS =a 25 THEN PRINT 
TEN !!'9": RETURN 

IF TS =a 3@ THEN PRINT 

Pili": RETURN 

IF TS =a 735 THEN PRINT 
Ro o'ti": RETURN 

IF TS =a 100 THEN PRINT 
IR «e6e"s RETURN 

IF TS =a 150 THEN PRINT 
OD «+e": RETURN 

IF TS =a 250 THEN PRINT 
EAT !!!"s:s RETURN 

IF TS =a 450 THEN PRINT 
NTASTIC !!!": RETURN 


THEN 


+SX 


+ 


THEN 
) * 


AT 
36 


5 0 
OF 


"ROT 


"BAD 


"POO 


"FA 


"CO 


"OR 


"FA 


To play Picasso, you must have a brush (paddle). It is always a good idea to 
play a game before you attempt the analysis. Load the program and type: LIST 
-1000. From this you will see where the subroutines begin. The first subroutine 
controls the messages and instructions you see before each run. To see how 
the program really works, list 3000-3040. To see how any instruction functions, 
type the line number with nothing after it. This deletes both the line and the 
line number. The lack of some attribute will reveal the line’s purpose. Look at 
line 3003. This line instructs the computer to draw sixteen squares (points) at 
specific intervals. Line 3005 labels each color with a corresponding letter. Line 
3020 merits an explanation. PEEK (-16384) instructs the computer to “survey” 
the keyboard. That is, the computer checks to see if any key has been pressed. 
Every keyboard character has a numeric equivalent. These numeric values are 
known as ASCII values and begin (for keyboard characters) at 128. Therefore, 
if PEEK (-16384) is less than 128, no key has been pressed. Line 3040 is a 
logical extension of 3020. The ASCII value for ‘A must be 193, and the ASCII 
value for ‘P’ must be 208. So, if the KEY that was pressed was 
A,B,C,D......0,P, then the color is changed to the corresponding shade. If you 
type 3040 <RETURN>, the colors can no longer be chosen. Typing RUN 
ARTIST BOARD loads in a fresh copy of the program with everything working 
normally. 


The noteworthy feature of the program loop (lines 3010 to 3090) is that it 


checks the game paddles and the keyboard at each pass. You can draw all day 
with the paddles but always be able to perform program functions by pressing 
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appropriate keys. You can use a loop like this in lots of games and other 
applications to allow for full use of the paddles and keyboard to control the 
program. 


Lines 3110 and 3210 are interesting because they issue disk commands from a 
print statement by the use of CHR$ (4) which is CONTROL D. The BSAVE and 
BLOAD commands are followed by the location in memory which holds the 
contents of the low resolution graphics screen one. 


Line 3010 is the heart of the program loop. The game paddles yield values 
from 0 to 255. This number has to be divided by a factor which will yield 
numbers from 0 to 39 since these are the limits of the low resolution screen. 
The INT function delivers whole numbers which are also required. After X and 
Y are read from the paddles a single small square is plotted in the color 
determined by line 1340. This color is then read off the screen by the SCRN 
function and stored in ‘C’. Next the color is changed to white (15) and the 
square replotted in white. Next comes a short delay loop to slow down the 
cycle and the blink rate. After this wait, the color is reassigned as ‘C’ and 
replotted. The effect is a square which marks the location of the paddles by 
blinking between white and the selected color. The selected color is generated 
before and after the white square so that you will always leave the right color 
behind even if you move the paddles fast. Try putting the parts of this line in a 
different order and see what a colorful hash results. 


10 REM HHKKHKHKEHHEKEKEHHKKKES 


11 REM **#% XH % 
iZ? REM *** ARTIST BOARD *** 
i3 REM *x* HH % 
14 REM KEKHHEHHKEHREKHKHEKHEES 
iS REM 
iG REM 


20@ GOSUB 1000: REM INSTS 
40 GOSUB 3000: REM PLAY! 
2@ GOSUB 4000: REM !END! 
68 END 


ig@gi REM #*#*#* INSTS 
1910 TEXT : HOME : NORMAL 


1020 YVTAB 3: HTAB 10: PRINT "“*** 
ARTIST BOARD **#" 


134 


1030 VTAB 7: PRINT "BY USING ART 
IST BOARD AND YOUR CREATIVE 
TALENTs YOU CAN CREATE PICTU 
RES IN LOW- RESOLUTION COLOR 
o's PRINT 

1040 PRINT : PRINT “THE GAME PAD 
DLES ARE USED TO MOVE THE 
COLORED CURSOR (YOUR PAINT B 
RUSH). THE TOOLS ARE THERE 
FOR YOU TO DESIGN VERY ELAB 
ORATE PICTURES...-GO TO IT ! 

1042 PRINT : PRINT "YOU MAY SAV 
E A DRAWING ONTO DISK FOR 
RECALL AT A LATER TIME." 

1050 YTAB 23: INPUT "HIT RETURN 
WHEN READY TO CONTINUE =: "3A 


NS$ 
1990 RETURN 
3000 : 
30901 REM *%*%* PLAY! 
3002 : 


3003 GR : FOR I = 1 TO 16: COLOR= 
I: PLOT I * 239: NEXT 

3005 HOME : PRINT " A®BCODE F 
GHI JK LECMN O P"s: PRINT 
"TYPE IN CHOICE TO CHANGE CO 
LOR": PRINT "TYPE ‘R’ TO REC 
ALL» ‘S’ TO SAVEs"s PRINT "% 
QO’ TO QSUITs °X’ TO ERASE" 5 

301@ K = INT ¢ PDL (0) / G.5)tY = 
INT ¢ PDL (1) / 6.7): PLOT 
c9¥eC = SCRNC Xs¥): COLOR= 
13: PLOT x»s¥: FOR I = 1 70 5 
@: NEXT I: COLOR= Cs: PLOT A>» 
y¥ 

3020 IF PEEK (¢( - 16384) < 128 THEN 


3010 
3030 KEY = PEEK ( - 16384): POKE 
- 16368 »@ 
3040 IF KEY >? = 193 AND KEY < = 
208 THEN COLOR= (KEY - 192) 
GOTO 3010 
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3030 
3860 
3070 
3080 
3090 
3100 


3105 
3110 


3200 


3205 
3210 


399¢ 
Adaa 
A001 
40a2 
4010 


IF KEY = 211 THEN 31900 

IF KEY = 210 THEN 3200 

IF KEY = 209 THEN RETURN 
IF KEY = 216 THEN 3003 

GOTO 3010 

HOME INPUT “SAVE AS WHAT 
FILE "SFIS 

IF FIS = "" THEN 3005 

PRINT CHR (4) "BSAVE "FI$" 
sAFAGD»LE400": GOTO 3005 
HOME INPUT “RECALL WHAT F 
ILE =: "“sFI$ 

IF FIS = "" THEN 3005 

PRINT CHR (4)"BLOAD "FI$" 
sAG400": COLOR= @: GOTO 3005 
RETURN 

REM *** !END! 

TEAT HOME RETURN 


Y 4 oe Aalguew: ” 
- > 
2 (i{t— 
stan 


dL Lee lt fe 
UKE a 
gwkl 


(a 


we 


ep) 


Se HTRSRAMLUTAUTASSIAT 
= 


iy AAAS 
OF x ) 


WH 


This game is straightforward. Its use of colors and all graphics makes it a good 
exemplary program. Type: LOAD BARREL OF FUN, then list through line 
2030. To see how each line works, change lines 2020-2029 as follows: 


2020 VTAB 19 
omit 2021 
do not change line 2022 
2023 COLOR 1 
2024 FOR I 4 TO 28 STEP 4 
2025 HLIN 8+30 AT I + 2 
donot change 2026 
2027 FOR I = 4 TO 20 STEP 4 
2028 VLIN G+28 AT I+ do not change I, 


Run the program after each change to see the new effect. These previously 
meaningless statements can be understood by using this technique. The 
following chart will clarify the function of each line: 


LINE COMMAND FUNCTION 

2020 VTAB 23 The computer tabs down 23 lines from the top of 
the screen 

2021 CALL -958 Clears the text beginning at the cursor and contin- 


uing through to the bottom margin 
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2028 


GR 

COLOR = 5 

FOR I = @ TO 
18 STEP G 


HLIN 1129 
AT I 


NEXT 

FOR I =0 to 
18 STEP G 

VLIN 0736 
AT I 

NEXT 


Switches from the text mode (black and white) into 
the graphics mode (color) 


Until further notice, all printing will be done in 
gray (color =9) 


Begins a loop which starts with I=0 with I being 
incremented by six each time a pass is completed 


Draws a horizontal line from column 11 to column 
29, on line I 


Completes each pass of the loop begun at line 2024 
(see line 2024) 

Draws a vertical line beginning at row 0 and 
continuing to row 36. The line will be drawn at 


column | 


Completes each pass of the loop begun at line 2027 
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1a REM HEEKHEKEKHKKEKKKKEKKKEE 


11 REM **+* HH 
12 REM *#* BARREL OF FUN #* 
13 REM **# HX 
14 REM KEKEKKHHKKKHKHHEHKHEERE 
15 REM 
i6 REM 


20 GOSUB 1000: REM INSTS 
30 GOSUB 2000: REM SETUP 
40 GOSUB 3000: REM PLAY! 
G@ END 


1901 REM *** INSTS 
1010 TEXT : NORMAL : HOME 


1020 VTAB 3: HTAB 1@: PRINT "**#* 
BARREL OF FUN ***" ( 


| 


Jn 


1030 YVTAB 7 

1031 PRINT "IN BARREL OF FUN* YO 
U WILL SEE THREE COLUMNS 
OF SIX COLORFUL SQUARES. TH 
E OBJECT" s *: 

1032 PRINT " OF THE GAME IS TO A | 


Lh 


BN 


LIGN THE ROWS SUCH THAT EACH 
ROW IS ONE SOLID COLOR. TH 
ERE ARE ONLY TWO PURPLE SQUA 
RES. THE BLACK SQUARE MUST 
EVENTUALLY COMPLETE THE PU | 


AN on 


RPLE ROW," 
1040 PRINT : PRINT “THE BOARD OF 
SQUARES WILL BE MIXED UP; 
AND YOUR TASK IS TO UNSCRAMB al 
LE IT, THE FINAL PRODUCT SH = \ 
OULD HAVE ALL OF THE sauea | 


ALAS 
wn 
Seen” 


Te 


‘ i 
oe, 


RES OF ONE COLOR LINED UP IN 
A HORIZONTAL ROW. 

1050 PRINT : PRINT "A SAMPLE OF 
HOW THE FINISHED PRODUCT 
SHOULD LOOK WILL BE SHOWN TO 

YOU. "“ 

1060 PRINT : INPUT "HIT RETURN W 
HEN READY TO CONTINUE =: "SAN 
5 $ 


NOM 


= AMARA 


= 
— 
“a 


i 
fal 
" 


Ot 2 


1 1 
at Vi ad AVL Hs 
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1070 


1080 


1090 


1100 


11190 


1120 


1130 


1140 


115@ 


1990 
2000 
2001 
2002 


HOME : VTAB 3: HTAB 10: 
"¥%* BARREL OF FUN ###": 
; 

PRINT "EACH COLUMN OF SQUAR 
ES (COLUMNS 1+2+3) CAN BE R 
OTATED VERTICALLY BY ENTERIN 
G THE NUMBER OF THE COLUMN 

YOU WISH TO ROTATE" 

PRINT : PRINT "YOU CAN MOVE 

COLORED SQUARES INTO THE 
EMPTY SQUARE BY USING THE AR 
ROWS ON THE KEYBOARD. IF TH 
E COLORED SQUARE IS TO BE M 
OVED TO THE EMPTY SQUARE ON 


PRINT 
VTAB 


ITS RIGHT» THEN PRESS TH 
E RIGHT ARROW, “ 
PRINT PRINT "IF THE COLOR 


ED SQUARE IS TO BE MOVED TO 
THE EMPTY SQUARE ON ITS LEFT 
» THEN PRESSTHE LEFT ARRON. 

VTAB 23: 
WHEN READY 
NS$ 

HOME : VTAB 3: HTAB 1@: 
"*¥*#% BARREL OF FUN ###": 
, 

PRINT "NOTE THAT IN THE FIN 
AL SOLUTION ALL HORIZONT 
AL ROWS MUST BE THE SAME COL 
OR. " 


INPUT “HIT RETURN 
TO CONTINUE : "$A 


PRINT 
VTAB 


PRINT =: PRINT "IT DOESN’T M 
ATTER WHERE THE ROW IS 
LOCATED» AS LONG AS ALL OF T 
HE COLORS WITHIN THE ROW A 
RE THE SAME. “" 

VTAB 23: INPUT “HIT RETURN 
WHEN READY TO CONTINUE =: "SA 
NS$ 

RETURN 


REM *#** SETUP 
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2010 DIM BA(3+6),CO(G): FOR I = 
1 TO G: READ CO(I): NEAT 
158+11+°12+15,3:BELL% = 
(7) 

FOR I = 
S:BACJ+I) = 


BA(3+6) = @:BX = 


DATA 
CHRS 
2015 i7T0 G6: FOR J = 1 7T0 
COCCI): NEAT Jol: 
3:BY = 6 


2020 
2021 
2022 
2023 
2024 
2025 
2026 
2027 
2028 
2029 


VTAB 23 
CALL - 
GR 
COLOR= 3 
FOR I = @ TO 36 STEP 6G 
HLIN 11529 AT I 

NEAT 

FOR I = @ TO 18 STEP G 
VLIN @*36 AT 1 + 11 
NEAT 


938 


2930 FOR I = 
NEAT I 
HOME : HTAB 3S: PRINT “eed 

HIS IS THE FINAL PATTERN >2 


": FOR I = 1 TO 2000: NEXT I 


1 TO 3: GOSUB 2500: 


2100 


ao 


£#£11@ HOME : 


‘M NOW 


FOR N 
* 10) 
IF Bx 
2140 
IF Bx 
2140 
2132 RX = 

+ 1 
FOR L = 1 TO 
* 3) + 1: FOR 
(RXoM - 1) = BACRA®M): NEXT 
MsBACRX+G) = BACRA»@):s1I = RX 

©: NEXT L: GOSUB 2500 | 


HTAB 3: PRINT “ee I 
SCRAMBLING THE BOARD 


i TO 
=O 
3 THEN RX = 2: 


INT (¢( RND (1) 


GcoTO 
GoTo 


* 2 


bet wt 


f. 
TT 
ener” 


1 THEN RA = 2: 


INT ( RND (1) * 2) 


INT ( RND (1) 
M = 1 TO 6:BA 


| Via ML gil. 
b at tg yi , wi 


BA(BX»BY) = BACRA +BY) sBACRX: 
BY) = @ 

I = BX:J = 
2155 BX = RX:I = 
2910 


BY: GOSUB 2351@ 
Bx:J = BY: GOSUB 


— \ \\\ y- 
vats ANY at oi Mw 6 3 
| 
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NEXT Ns 
RETURN 
FOR J = 
NEXT Js 
COLOR= 

4: HLIN 
G + 4 AT 
K: RETURN 
RETURN 


RETURN 


1 TO G: 

RETURN 
BACT »J): FOR K = 
(I + 1) * G65(1I + 
K 


GOSUB 
(J * 6) - 5S + 


REM *#%* PLAY 
HOME PRINT "(TYPE 1 
TATE COLUMN 1» 2 FOR ) ( 
COLUMN 2+ 3 FOR COLUMN 3, RI 
GHT ARROW )(TO SHIFT RIGHT» 
LEFT ARROW FOR LEFT a i 
IF PEEK (¢ - 16384) 128 THEN 
3020 
KEY = PEEK ( - 
- 1636850 
IF KEY = 177 OR KEY = 
KEY = 179 THEN 3100 
IF KEY = 136 THEN 3050 
IF KEY = 149 THEN 3075 
PRINT BELL: GOTO 30190 
RX = Bx + 1: IF RA = 4 THEN 
PRINT BELL#: GOTO 3010 
BACBAsBY) = BACRA +BY) :BACRX » 
BY) = @ 
I = BAsJ = 
= RAI = 
~10 
GOTO 3500 
RX = BA - 1: 
PRINT BELL$: 
BAC(BAsBY) = 
BY) = @ 
I = BAsJ = 
= RA:TI = 
210 
GOTO 3500 
RX = KEY - 


TO RO 


16384): POKE 


178 OR 


BY: GOSUB 
BX:J = BYs 


Z2O10:Bx 
GOSUB 2 


IF RA = @ THEN 
GOTO 30190 
BACRKX »sBY) sBACRA » 


BY: GOSUB 
BAazJ = BYs 


2910:Bx 
GOSUB @2 


176 
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31190 


4990 


A 


i 
i 


vt A 
} oO Ci 
aay 


FOR M = 1 TO G:BACRA»M - 1) 
= BACRAsM): NEAT M:BACRA +6) 
= BA(RX+@):IT = RX: GOSUB 25 
02 

IF RX = BX THEN BY = BY - 1 

IF BY = @ THEN BY = 6 

GOTO 3500 
BA(BX,»BY) = 3: FOR IT = 1 TO 
G 

IF BAC1+I) = BAC2+sT) AND BA 
2*I) = BAC(3+1I) THEN NEAT I 

RETURN 
BAC(BX»BY) = @:TRY = TRY + 1: 
GOTO 3010 

RETURN 

REM *#* END 

HOME PRINT BELLSBELL$"THE 
GAME IS OVER !!!"s PRINT “Y 
OU DID IT IN "TRY" TRIES oe. 
"s END 

RETURN 


> LO 
Oa 


v, =: 
L “ui! Is ee 


errs 


Cut: 


Hil 


LEU 


NNN ym wr 
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In this game you try to draw a longer line than your opponent. If your 
progress is impeded either by a border or by the opponent's line, you lose. 
This is a two man game. List through line 2125. The POKEs constitute an all- 
purpose sound routine which is explained in STARDODGER. Experiment with 
any of the lines on the screen. Line 2125 will be described in detail. HLIN 
stands for Horizontal LINe. A line has 40 characters (0-39), so the numbers 
18,22 specify where the line will begin (at 18) and where the line will end (at 
22). AT 18 specifies which line (on the Y, or vertical axis) receives the 
horizontal line. Next, another horizontal line is called for. It is to travel from 18 
to 22 and is drawn on line 21.The colon (: ) serves the same function as a new 
line and line number. In other words, a colon marks the end of one instruction 
and the beginning of another. To save space, many instructions may be 
clumped onto one line. Line 3010 draws the new position of both players. 
Change 3010 to read: 3010 COLOR= 1:PLOT X1,Y1:COLOR= 2:PLOT X2,Y2. 
Now when you run the program, the color of Player #1's line will be magenta 
(COLOR= 1) and the color of Player #2’s line will be deep blue (COLOR= 2). 
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10 REM XH KHKHEHRKEHEKREKRHHES 

11 REM %*** H% 

12 REM **#* BLOCK ‘EM *x* 

13 REM *#%* HX % 

14 REM KEE KKHEKEKREKKHKEKHEHES 

id REM 

16 REM 

“0 GOSUB 1000: REM INSTS 

30 GOSUB 2000: REM SETUP 

40 GOSUB 300@: REM PLAY! 

22 GOSUB 4000: REM !END! 

G@ END 

1@aa : 

1001 REM **%* INSTS 

1002 : 

1010 TEXT NORMAL HOME 

1020 YVTAB 2: HTAB le: PRINT "**% 
BLOCK ‘EM **#" 

1930 VYVTAB 3 

1031 PRINT “IN THIS GAME,+ TWO PL 
AYERS CONTROL THE CREATION 
OF A LINE." 

1@32 PRINT 

1040 PRINT “THE FIRST PLAYER WHO 
SE LINE HITS A WALL>OR THE O 
THER PLAYER’S LINE+,LOSES THE 

GAME. " 
1050 PRINT : PRINT "PLAYER #1 
DIRECTION PLAYER #2": PRINT 
1051 PRINT " WW UP 
I": PRINT 

1052 PRINT “A S LEFT 
RIGHT J K"s PRINT 

1053 PRINT "“ Fl DOW 
N My" 

1090 VTAB 23: INPUT “HIT RETURN 
WHEN READY TO CONTINUE : "5A 
NS$ 

1990 RETURN 

2000 : 

2001 REM **%* SETUP 

2002 : 
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2010 


2030 


2100 


POKE 768;173: 
7709192: 
7729208: 
4,198: 
240 

POKE 777;8: 
779 +208: 


POKE 769,48: POKE 
POKE 771:+136: POKE 
POKE 7734: POKE 77 
POKE 77371: POKE 776» 
POKE 778,202: POKE 
POKE 780,246: POKE 
781,51GG: POKE 782,50: POKE 78 
3*7G: POKE 784.0: POKE 78523 
POKE 786,96 
GR : HOME : 
0:39 AT @: 
0,39 AT @: 
PRINT 


COLOR= 15: HLIN 
HLIN @:39 AT 39: 
VLIN @*39 AT 39 
“PLAYER #1 

PLAYER #2" 

RND (1) * 3) + 1 
RND (1) * 10) + 
INT ( RND (1) * 
RND (1) * 108) 

1:D2 = 3 


VLIN 


x1 = 
<¥1 = 
1d:kK2 = 38 - 
o)d)f¥2 = INT ( 
+ 1@:D1 = 

FOR I = 1 TO G: READ N+D: POKE 
@sN: POKE 1,+D: CALL 768: NEXT 
I: DATA 110,575 .70:»75:551+75 +4 
392001959 2100/45 .255 

FOR I = 3 TO 1 STEP - 
@: FOR J = 18 TO 
x24 AT J: NEXT : COLOR= 15: 
02,200: POKE 1+5: CALL 768 

ON I GOTO 21217-2122 :2123 21 
2432125 

HLIN 18»22 AT 24: 
4 AT 20: 
2130 
HLIN 1822 AT 18: HLIN 1872 

2 AT 21: HLIN 18-22 AT 24: VLIN 
18,21 AT 22: VLIN 21/24 AT 1 

8: GOTO 2130 

HLIN 18,22 AT 18: 


= AT 21: 
18+24 AT 22: GOTO 2130 
HLIN 18,22 AT 21: VLIN 1822 
1 AT 18: VLIN 18+24 AT 22: GOTO 


2130 


INT ( 
INT ¢ 


1: COLOR= 
VLIN 18 


oe? 
Sn im O 


POKE 


VLIN 1892 
HLIN 18+20 AT 18: GOTO 


HLIN 18%2 
HLIN 18922 AT 24: YLIN 
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HLIN 18:22 AT 18: HLIN 182 
«© AT 21: HLIN 18+22 AT 24: VLIN 
18s21 AT 18: YLIN 21724 AT 2 
e<: GOTO 2139@ 

FOR PA = 1 TO 30@: NEXT PAs 

I 

COLOR= @: FOR J = 18 TO 22: 
VLIN 18+24 AT J: NEX COLOR= 
15: POKE @+20@: POKE 1°85: CALL 
768 

RETURN 

REM *#** PLAY 

COLOR= 7: PLOT X1+Y1i: COLOR= 
9: PLOT K2s¥2 
NT = 5 + ( (MO 35) * (3¢0 - 
INT (MO / 13) * 135)) 

FOR I = 1 TO NT:KEY = #£=PEEK 

( - 16384): IF KEY i2Z8 THEN 
3050 

POKE - 16368,0 

IF KEY = 193 THEN Di = 3 

IF KEY = 215 THEN Di = 4 

IF KEY = 211 THEN Di = i 

IF KEY = 218 THEN Dil = 2 

IF KEY = 202 THEN D2 = 3 

IF KEY = 201 THEN D2 = 4 

IF KEY = 203 THEN D2 = 1 

IF KEY = 205 THEN D2 = 2 

NEXT I 


ON D1 GOTO 3110+3120:3130:3 
140 


‘1 = K1 + 1: GOTO 31590 
Yi = Yi + 1: GOTO 3150 
‘1 = Al - 1: GOTO 3150 
Y1 = Yi - 1: GOTO 315@ 

IF Al < 1 OR Al >? 38 OR Yi ¢ 
1 OR ¥Y1 + 38 OR SCRNC( XK1;Y1i 
) ££ * @ THEN WL = @: RETURN 

ON D2 GOTO 321053220 1323013 
240 
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3210 X2 = X2 + 1: GOTO 32590 
3220 Y2 = Y2 + 1: GOTO 3250 
32390 X2 = X2 - 1: GOTO 3250 
3240 Y2 = Y2 - 1: GOTO 3250 


32590 jIF kK2 1 OR X2 + 38 OR Ye 
1 OR Y2 > 38 OR SCRNC KerV¥e 
) < + @ THEN WL = 1: RETURN 


3300 POKE @:9@: POKE 1+3@: CALL 
7G8:MO = MO + 1: GOTO 3010 

AQaaa : 

4001 REM *** END 

4a@e : 

4010 HOME : PRINT "THE GAME [5 OQ 
VER.eee": PRINT "PLAYER NUMB 
ER "WL" HAS WON THE GAME !!! 
"3 CHRS (7)5 CHRS (7)5 CHRS 
(7) 

4990 RETURN 


WO 


ON - 
| ZX, 
ei, 

“ iw Alors 

Sean 
wis 


“ye 


— a 
"i 


| ME ///// 
Wt Bigaramececny EN 


LESS WM 
— ee “+4, wel OVS / 4 
——— ecanaic yea LLL: 
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This game is an intellectual challenge. Random selections will rarely net you a 
correct solution. It is a good idea to conceptualize how you intend to achieve 
your goal. Graphically, this program is straight-forward. Type: LIST-3030. Here 
are four lines (3010-3030) with which you may experiment. Line 3010 draws the 
original game board. Lines 3020-3030 have functions which are less apparent 
but just as important. If you look at lines 3505-3530, they help finish what line 
3010 began. Verify the function of line 3525. It should draw the X in an 
occupied square. To check, type in a line 3522 and put STOP after the line 
number. Do likewise at line 3527. Now when the program is run, a break at 
3522 will occur. When ready to continue, type: CONT. The new picture, which 
has an X in the center box, will be the result of line 3525. Again a break will 
occur (at line 3527); type CONT. To exit from the graphics mode, type: TEXT. 
Unless you SAVE a change, it won't be written to disk, so do not fret about 
undoing any changes that you make. 
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10 
11 
12 
13 
14 
15 
16 
2@ 
3@ 
40 
~@ 
60 
1000 
1001 
1002 
1010 
1020 


1030 


1031 


1040 


1045 
1030 


1055 
1060 


1070 


1080 


REM HEEKEHKHEKKHEKEKKEKRKHKEE 


REM *% H & % 
REM *** BRAIN TEASER *** 
REM **%* He ¥ 
REM HEHEHE KKEHKHEHREHREHHEHRE 
REM 
REM 


GOSUB 1000: REM INSTS 
GOSUB 2000: REM SETUP 
GOSUB 3000: REM PLAY! 
GOSUB 4000: REM !END! 
END 


REM **%* INSTS 


TEXT + NORMAL : HOME 

VTAB 3: HTAB 10: PRINT “*#* 
BRAIN TEASER *#**" 

VTAB 6 

PRINT "IN THIS GAME YOU ARE 
GIVEN A 3 BY 3 GAMEBOARD WI 
TH ONE OCCUPIED SPACE (THE 

CENTER). THE BOARD WILL 

RESEMBLE THIS :" 

PRINT =: PRINT " - - =-"s PRINT 
" - X -"s: PRINT “ - - 
PRINT 

PRINT "THE TRICK IS TO MOVE 
PIECES SO THAT THE GAME BOA 
RD WINDS UP LOOKING LIKE THI 
Go." 
PRINT 


PRINT " K K K 
AND - - - yo 
x NOT LIKE - - - 


A KK THIS: 


VTAB 23: INPUT “HIT RETURN 
WHEN READY TO CONTINUE =: "3A 
NSS 

HOME : VTAB 3: HTAB 10: PRINT 
"##* BRAIN TEASER #*#*": VTAB 
5 
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109¢ 


1095 
1100 


1102 


1110 
1111 


1120 


1130 


1135 
1140 


1141 


1142 


1148 
1150 


PRINT "YOU MAY ONLY MOVE TO 
AN OCCUPIED SPACE (A SPACE 
WITH AN X ON IT). WHEN YOU 


MOVE, CERTAIN SQUARES WIL 
L REVERSE THEIRCONDITION (C 
HANGE FROM AN X TO A BLANK + 
OR VICE-VERSA). 

PRINT 

PRINT "IF YOU MOVE TO A COR 
NER» ALL OF THE ADJACENT 

SQUARES REVERSE, 

PRINT “IF YOU MOVE TO THE M 
IDDLE OF A SIDE+ ALLOF THE 5 
QUARES ON THAT SIDE WILL FLI 
P, AND IF YOU CHOOSE THE CE 
NTER SQUARE » THAT BOX AND 

THE FOUR MIDDLE BOXES WILL 
ALL BE REVERSED" 


VTAB 23 

INPUT "HIT RETURN WHEN READ 
Y TO CONTINUE "SANSS 

HOME : VTAB 3: HTAB 10: 
"**# BRAIN TEASER *#*##": VTAB 


5 
PRINT "HERE IS A QUICK REVI 
EW OF THE VARIOUS MOVYVES:s A 


ND THE RESULTING REVERSALS.. 

PRINT 

PRINT " M * - * M 
% -~ * -"! 

PRINT " * * - - - 
_ * M *¥" 

PRINT " --- - - 
_ -~ * ."! 

PRINT 

PRINT "THE ‘’M’ DENOTES THE 
MOVE POSITION, AND THE ’#°’S 
DENOTE THE PIECES THAT WILL 
BE FLIPPED. THE PIECE AT ° 
M’ WILL ALSO BE FLIPPED. TH 


E BOARD IS DESIGNATED LIKE 
THIS =: " 
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PRINT 


1160 


1170 
1171 


1990 
2000 
2O01 
2802 
2010 


2990 
3000 
3001 
3OG2 
3010 


3020 


3030 


PRINT " 1 2 3": PRINT 
" 4 5 6": PRINT " 
78 9" 

VTAB 23 

INPUT "PRESS RETURN WHEN RE 
ADY TO CONTINUE : "SANS$ 
RETURN 

REM #** SETUP 

DIM BO(3+3): FOR I = 1 703 


FOR J = 1 TO 3:BO(TIsJ) = - 
1: NEAT JesIT:BOC222) = 1 
RETURN 

REM **% PLAY 
GR : HOME 
FOR J = 
NEXT Jol 
FOR I = 1 TO 3: 
3: IF BOC(I»J) = 
J = 2) THEN 
s RETURN 
FOR I = 1 TO 3: FOR J = 
3: IF BO(I+J) = - 1 THEN 
JvsITsWh = O: RETURN 

HOME =: PRINT “INPUT A POSIT 
ION (1-9) OR": PRINT “ENTER 
RETURN TO QUIT > "ss INVERSE 
s PRINT " "“s5 

IF PEEK ( - 
3040 
KEY = PEEK ( - 
- 1636850 
IF KEY = 
IF KEY <¢ 
3030 


FOR I = 


: i703: 
1 TO 3: 


GOSUB 3505: 


FOR J = 1 TO 
1 OR (I = 2 AND 
NEAT JesITsWlh = 1 


1 TO 
NEAT 


NORMAL 
16384) 128 THEN 


16384): POKE 


141 THEN 
177 OR 


RETURN 
KEY >» 185 THEN 
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3075 KEY = KEY - 176:1I = INT (CK 
EY - 1) / 3) + isJ = KEY - ¢ 
I - 1) * 3: IF BO(IsJ) = - 
1 THEN HOME : PRINT "MOVE O 
NLY TO AN OCCUPIED SQUARE": FOR 
I= 1 TO 15300: NEAT GOTO 3 
030 

3080 ON KEY GOTO 3110#3120,3130» 
314053150 +53168 5317053180 ,319 


"4 

3110 IT = i:J = 1: GOSUB 3500 

S111 1 = i:J = 2: GOSUB 3500 

Sil2z I = = 1: GOSUB 3500 

3113 1 = = 2: GOSUB 3500: GOTO 
302 

3120 I = = 1: GOSUB 3500 

3i2zi I = = 2: GOSUB 3500 

gl22 1 = = 3: GOSUB 3500: GOTO 
302 

313@ I = = 2: GOSUB 3500 

3131 I = = 3: GOSUB 3500 

3132 I = = 2: GOSUB 3500 

3133 I = = 3: GOSUB 3500: GOTO 
3020 

3140 1 = i:sJ = 1: GOSUB 3500 

3141 I = 2:JjJ = 1: GOSUB 3500 

$142 1 = 3:45 = 1: GOSUB 3500: GOTO 
3020 

3150 IT = i:J = 2: GOSUB 3500 

3151 I = 2:J = 1: GOSUB 3500 

3152 I = 2:53 = 2: GOSUB 3500 

3133 I = 2:J = 3: GOSUB 3500 

3154 I = 3 = 2: GOSUB 3500: GOTO 
3020 

3160 I = i:J = 3: GOSUB 3500 

3161 1 = 2@:J = 3: GOSUB 3500 

3162 1 = 3:J = 3: GOSUB 3500: GOTO 
3020 

3170 I = 2:J = 1: GOSUB 3500 

3171 I = @:J = 2: GOSUB 3500 

3172 I = 3:J = 1: GOSUB 3500 

3173 I = 3:J = 2: GOSUB 3500: GOTO 
3020 
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I = 3:J = 1: GOSUB 3500 
I = 3:J = 2: GOSUB 3500 
I= 3:J = 3: GOSUB 3500: GOTO 
3020 
I = 2@:J = 2: GOSUB 3500 
I= @:J = 3: GOSUB 3500 
I = 3:J = 2: GOSUB 3500 
I = 3:J = 3: GOSUB 3500: GOTO 
3020 
BOCI+sJ) = - BOC(TI>sJ) 

COLOR= BOCI»J) + 5 

FOR I2 = I * 8 TO I * 8 + 7 

HLIN J * BsJ * 8 + 7 AT I2 
s NEAT I2 

IF BO(I+J) = - 1 THEN COLOR= 
iS: FOR I2 = I * 8 + 3 TO TI * 
8 + 4: HLIN J * 8 + 3*+J * 8 + 
4 AT I2: NEAT RETURN 

COLOR= 15: FOR I2 = I * 8 + 
17TO1* 8 + Ge PLOT ((J * 8 
) + (12 - (1 * 8)))eT2: PLOT 
((J * 8) + 7 + (CCT * 8) - T2 
JdeT2s NEAT 

RETURN 

REM #*#*%* END 

HOME : PRINT CHRS (7) CHR$ 
(7) CHRS (7)"THE GAME IS OVE 
Ro often" 

IF WL = @ THEN PRINT "AND 
YOU’VE LOST..-.-SORRY " 

IF WL = 1 THEN PRINT “AND 
YOU‘VE WON...++-+GREAT!!!" 
RETURN 
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What a challenge! This game tests your quickness and dexterity. The game is 
similar to some of the arcade games you see. With a little practice YOU could 
write this program. Let's get to the heart of the program. First, you must 
LOAD BRICK WALL. You should RUN the program to get the feel of it. Now 
type: LIST -1960. Look at line 2010. To get into the GRaphics mode (for color) 
there must be the command GR (for graphics). To dramatize the function of a 
particular line, type in the line number and return; this deletes the line. Then 
run. What goes wrong? Does the progam crash or just loose some functions? 
To see the actual workings of the program, type LIST. What you see is a 
roadmap telling you where to find various routines. Again, if you would like 
to know the function of a line, type in the line number, return, and run. Some 
of the lines that you should experiment with are: 2110, 2310, 2331 and 3020. 
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10 REM HREHHKEHKKEHKEKKKEKEKHKEE 


11 REM +**%# HH 
12 REM *** BRICK WALL **+% 
13 REM **# HEX 
1A REM KKK HEKRKEKHEKKEKRKHES 
15) «REM 
iG REM 


20 GOSUB 1000: REM INSTS 
3@ GOSUB 2000: REM SETUP 
42 GOSUB 3000: REM PLAY! 
22 GOSUB 4000: REM !END! 
60 END 

1000 : 


i001 REM *** INSTS ae 
1902 : = 
1010 TEXT : NORMAL : HOME wu 


i@20@ VTAB 3: HTAB 12: PRINT "“*** 
BRICK WALL **#" 

1030 VTAB 7: PRINT “IN THIS GAME 
» YOU WILL BE PRESENTED 
WITH A WALL OF BRICKS AT THE 
TOP OF THE SCREEN» AND A PA 
DDLE AT THE BOTTOM. THE 
GAME PADDLE (PADDLE @) IS US 
ED TO HIT A ROCK INTO THE 
WALL OF BRICKS.": PRINT 

1031 PRINT "WHEN THE ROCK HITS A 

BRICKs IT WILL DESTROY 
IT AND POINTS WILL BE ADDED 
TO YOUR SCORE." 

1040 PRINT =: PRINT "YOUR MISSION 
» SHOULD YOU ACCEPT, IS TO 
DESTROY AS MUCH OF THE BRICK 

WALL AS POSSIBLE.": PRINT 
>: PRINT “YOU ARE ALLOWED ONL 
Y 3 MISSES." 

1@60 VTAB 23: INPUT "HIT RETURN 

WHEN READY TO CONTINUE =: "3A 


NS$ 
1990 RETURN 
2000 : 
2001 REM *** SETUP 
2002 5; — 
2010 #4GR 
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GOSUB 210@ 

GOSUB 240¢@ 

DIM DIR(G): FOR I = 
READ DIR(I): NEX 
1,599-19-.,59,59151.5 
RETURN 

REM *** DO BACKGROUND 

FOR I = 3 TO 19 STEP 2:K = 
(I - 1) / @:K = K - ¢€ INT (CK 
/ 2) * 2B) 

COLOR= K * G4 + Q: 
TO 36 STEP 4d: 
I: NEXT J 
COLOR= (1 - K) 
J = 2 TO 38 STEP 4d: 
+ 1 AT I: NEXT J 
NEXT I 

RETURN 

REM *#%* DRAW PADDLE 
P = ( PDL (@) - 20) / G 

IF P 0 THEN P = @ 

IF P 34 THEN P = 34 

IF P = PP THEN RETURN 
COLOR= @: HLIN PP»+PP + 53 
39: COLOR= G: HLIN PoP + 8 
39:PP = P: RETURN 

REM #*#*%* MOYE BALL 
‘© = BX + DI(BA):¥2 = 
D 

IF K2 0 OR * O39 THEN X 
- = BX - DI(BA):BA = 7 - BA: 
POKE @+220: POKE 1°10: CALL 
768 

IF Y2 
:sBD = - 


1 TO G: 
DATA - 


FOR J = @ 
HLIN Jed + 1 AT 


* G4 + 9: FOR 
HLIN JoJ 


AT 
AT 


BY + B 


ar 
er 


@ THEN Ye = BY - 
BD:BF = 1: POKE 
92: POKE 1,10: CALL 768 
IF ¥Y2 > 39 THEN COLOR= 
BX»BY: POP : GOTO 306@ 
IF SCRN( X2s+¥2) © > 
2330 
POKE 0240: 
768:BD = - 
(X2) - INT 
+ 1: IF PB = 


Pu 
ra 


G THEN \\ 


\\ 


POKE 1,10: 
BD:BF = @:BA = 
(PP) + 1:PB 
7 THEN BD 


non 
al 
Oo 
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2330 


2331 


2332 
2333 


2334 
2335 


2340 
2345 


2400 
2405 


£410 


3000 
3001 
3002 
3005 
3006 
3010 


3015 


COLORS= 
i3: PLOT 


(2+¥2:BXx 


IF 
335 
COLOR= 
) * 2): 
°SC = SC 
2“): POKE 

768 
IF SC = 
-@ THEN 
IF BD = 
= - BD 


VTAB 22: 
SCRN ( 


IF 
2345 
COLOR= 
COLOR= 
MZ2:BY = 


REM 


7703192: 
772:208: 
4,198: 
240 


POKE 777:8: 


779 +208: 
781,166: 
39/76: 


SCRN ¢ 


OAS = ¢ 
HLIN 


15: 


Ve 
ar 


POKE 7731: 


POKE 78450: 
POKE 786;96: 


PLOT BH +BY: 
Aeeve: COLOR= 


— ioe 
= AeErBY = Ye: 


COLOR= 
G: PLOT 
RETURN 


¥?,Y2?) = @ THEN 2? 


INT (X2 2 
AS+AG + 1 AT Y2 

+ (10 - (V¥2 - 1) / 
O10: POKE 1:10: CALL 


INT 
POP 
® OR 


(SC / 720) 
RETURN 
BF = 1 THEN BD 


* 7 


HTAB 9: 
BABY) 


PRINT SC 
13 THEN 


PLOT Bx sBY 
PLOT xA2+¥2:BXR = 
RETURN 


*¥**% MUSIC TONES 
POKE 768,173: 


POKE 769;48: 
POKE 771:+136: POKE 
POKE 773+4: POKE 77 
POKE 776+, 


POKE 778 s202: 
POKE 780@;24G6: POKE 
POKE 782;@: POKE 78 
POKE 7835:3 
RETURN 


POKE 


REM **%* PLAY 


HOME 
E a a3 


VTAB 21: 


FOR I = 
14: 


FOR J = 


@: NEXT J 


VTAB 22: 


PRINT 


PRINT "SCOR 


PRINT "BALLS LEFT 
1 TO 3: 
» - I 
1 TO 100: 


VTAB 21: HTAB 


GOSUB 220 


160 


POKE 


3020 


3030 
3840 
3030 
3060 
Ad0@ 
A001 
Addz 
4010 
4020 
4030 
4031 
A032 
4033 
Ad34 
4035 
4036 
4037 


4038 


Bx = INT ¢€ RND (1) * 20) + 
I@:BY = 21:BD = 1:BF = @:BA = 
INT ¢( RND (1) * 4) + 2:PB = 
a 

GOSUB 2300: REM BALL 

GOSUB 2200: REM PADDLE 
GOTO 3030 

POKE @+25@: POKE 1/100: CALL 
768: NEAT RETURN 

REM #*#%*%* END 

HOME PRINT "THE GAME IS O 
VER Pit" 

PRINT "YOUR SCORE [5 "SC" 

("5 

IF SC 100 THEN PRINT "LO 
USY)": RETURN 

IF SC 2090 THEN PRINT "PO 
OR)": RETURN 

IF SC 300 THEN PRINT "SO 
~S50)": RETURN 

IF SC < 400 THEN PRINT “BL 
AH)": RETURN 

IF SC < 300 THEN PRINT “GO 
OD)": RETURN 

IF SC < G6@0 THEN PRINT “GR 
EAT)": RETURN 

IF SC 700 THEN PRINT “EA 
CELLENT)": RETURN 

IF SC 720 THEN PRINT "FA 
NTASTIC ": RETURN 

PRINT "PERFECT!!! ": RETURN 


LYSu-s 
LAI!) wg 
i a 


Craps is a simplified version of the popular dice game. You are given a $1500 
stake to play with until the money is gone. To stop playing, bet 0 dollars. Let's 
look into the program. Type: LIST 2190. To better understand the function of 
any one line, delete the line by typing in the line number, return, and run. 
List line 2200. D1 and D2 are the variables for the dice. Once you understand 
line 2200, you will be able to “fix” the dice. As is, the outcome is random. But 
by changing this line, you can control their total. Line 2011 changes the color 
to white (COLOR = 15), and lines 2022 and 2023 draw the perimeter. Change 
2011 so that it reads: 2011 COLOR= 1. Now when you run the program, the 
perimeter will be magenta (COLOR= 1). When the dice are rolled, a graphic 
representation (drawing) of the random number (between one and six) is 
displayed on the screen. There are two cubes (dies) which, when added 
together, comprise the total. Line 2330 tells the computer to branch to one of 
the six given lines, depending on the RaNDom value of DD. The six lines 
(2331-2336) draw a configuration of a die, equal to 1,2,3,4,5, or 6. 
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10 
11 
12 
13 
id 
15 
16 


“? 
Lae 


30 
40 
oO 
6@ 
1000 
1001 
1002 
101@ 
1020 


1030 
1031 


1035 
1040 


1045 
1050 


1060 


1065 


1070 


1075 


REM 
REM 
REM 
REM 
REM 
REM 
REM 


GOSUB 
GOSUB 
GOSUB 
GOSUB 
END 


REM 


HEHEKHEKHKHEKKHKEKKEKKEKKKE 


HH HH 
HH CRAPS HH 
HH HH 


HEHKKHEKHEKHKEKKKEKEKRKKE 


ig@ga@: REM INSTS 
2000: REM SETUP 
3000: REM PLAY! 
4000: REM ‘!END! 


#*% INSTS 


TEXT = NORMAL : HOME 


VTAB 3: HTAB 13: PRINT "x*+ 
CRAPS *###" 

VTAB 6 

PRINT “THIS IS A DICE GAME 
CALLED **CRAPS#* ," 

PRINT 

PRINT "TO PLAY» YOU WAGER 
PORTION OF YOUR MONEY 

A ROLL OF THE DICE. HERE A 
RE THE RULES.«++." 

PRINT 

PRINT "YOU WIN IF THE FIRST 
ROLL IS EITHER 7 OR1Ii. CON 
VERSELY» YOU LOSE IF THE FIR 
ST ROLL 15 2+ 3+ OR 12." 
PRINT 

PRINT "IF YOU GET A 4:5,+6:8 
*J» OR 10 ON YOUR FIRST RO 
LL+ IT IS REFERRED TO AS YOU 
R *POINT#®. YOU MUST CONTI 


NUE ROLLING " 


PRINT "UNTIL YOU: 1) ROLL A 
WHICH IS CALLED *CRAPPIN 
G OUT* WHEREBY YOU LOSE» 


7 


2) 


TO YOUR POINT..-YOU WIN!" 
PRINT 
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OR 
YOU ROLL A NUMBER EQUAL 


INPUT "PRESS RETURN WHEN RE 
ADY TO CONTINUE" 5ANS$ 

HOME : YTAB 3: HTAB 13: PRINT 
"### CRAPS *###": VTAB 7 

VTAB 12 

PRINT "TO QUIT THE GAME, BE 
T @ DOLLARS," 

VTAB 23: INPUT "PRESS RETUR 
N WHEN READY TO CONTINUE : " 
sANS$ 

RETURN 

REM *%*%* SETUP 

GR 

COLOR= 15 
MNY = 1500 

HLIN @+939 AT @@: HLIN 0539 AT 
39g 

VLIN @*39 AT @@: VLIN 6:39 AT 
39 

RETURN 
Di = INT ¢( RND (1) * G) + 1 
°>D2 = INT ( RND (1) * G) + 

1 

GOSUB 2300: GOSUB 23190 

IF PEEK (¢( - 16384) < 128 THEN 
2200 

POKE - 16368;0: RETURN 
DD = DisDX = 10: GOTO 23290 
DD = D2:DX = 24: GOTO 2320 
COLOR= INT ¢ RND (1) * 14) 

+ 1 

FOR I = 20 TO 26: HLIN DX 5D 
xX + G AT It NEAT 

COLOR= 15: ON DD GOTO 2331, 


23932 92333 12334 12335 +2336 
PLOT DX + 323: GOTO 2340 
PLOT DX + 121: PLOT DX + 3 
x25: GOTO 2340 
PLOT DX + 1221: PLOT DX + 3 
vege PLOT DA + S225: GOTO 23 
4d 
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2334 


2335 


2336 


3860 


3061 


PLOT DA + ls2is PLOT DX + 5 
s2l: PLOT DA + 1925: PLOT DX 
+ S25: GOTO 2340 

PLOT DX + 1Le2eil: PLOT DX + 5 
s2i: PLOT DA + 1925: PLOT DX 
+ S925: PLOT DA + 3523: GOTO 
2340 

PLOT DX + Lle2l:s PLOT DX + 8 
seis PLOT DX + 1ls253: PLOT DX 
+ S925: PLOT DA + 14+23: PLOT 
DX + S23: GOTO 2340 

FOR I = 1 TO StAxK = PEEK ( 
- 16336): NEXT : RETURN 

REM #**%* PLAY 

HOME =: PRINT “YOU HAVE "MNY 
" DOLLARS" 

INPUT "HOW MUCH WILL YOU RI 


SK ON THIS BET? 
ANS = VAL 
IF ANS ¢ 

ANS < 
"4 
IF ANS = @ THEN 
HOME : PRINT "BET: "ANS" 
(ROLLING «e4e)" 
"<PRESS ANY KEY TO ST 
ROLL?" 
2200 
PRINT 


"SANSS 
(ANS$) 

@ OR ANS 

INT (ANS) 


* MNY OR 
THEN 301 


RETURN 


PRINT 
OP THE 
GOSUB 
HOME 
D2 

IF Di + D2 = 2 OR D1 + D2 = 
3 OR Di + D2 = 12 THEN PRINT 
"YOU CRAPPED OUT ...": FOR P 
A = 1 TO 1500: NEXT PA: GOTO 
3100 

IF Di + D2 = 7 OR D1 + D2 = 
11 THEN PRINT "YOU WON THAT 
TOSS ses FOR PA = 1 TO 15 
O22: NEXT PA: GOTO 3200 
PRINT "YOUR POINT IS 
D2:PT = Di + D2: 
1200: NEAT PA 


"ROLLED: "Di + 


"D1 + 
FOR PA = 1 TO 
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3865 


3066 


3070 


308 


3085 


3098 


3100 
31190 
3200 
A000 
A001 
A002 
4010 


4020 


4030 


4040 


4041 


A042 


4043 
4044 


4045 


HOME PRINT "BET: "ANS" PT 


"PT" (ROLLING AGAIN.«..)" 


PRINT "<PRESS ANY KEY TO ST 
OP THE ROLL?": GOSUB 2200 
HOME PRINT "ROLLED: "D1 + 
D2 

IF Di + D2 = 7 THEN 
"¥OU CRAPPED OUT .+."8 
A = 1 TO 1500: NEXT PA: 
3100 

IF Di + D2 = 
"YOU GOT YOUR 
PA = 
3200 
PRINT "YOU MUST ROLL AGAIN. 
oe" FOR PA = 1 TO 1200: NEAT 
PA: GOTO 30865 
MNY = MNY - ANS: 
RETURN 
GOTO 30190 
MNY = MNY 


PRINT 
FOR P 
GOTO 


PRINT 
FOR 
GOTO 


PT THEN 
POINT !!!"5 
1 TO 1500: NEXT PA: 


IF MNY = 


+ ANS: GOTO 30190 


REM #*#** END 
FOR I = @ TO 39: COLOR= INT 
( RND (1) * 15) + 21: HLIN @O» 
39 AT I: HLIN @*39 AT 39 - I 
VLIN @*39 AT I: VLIN 0:39 AT 
39 - I:XxX = PEEK ¢ - 16336) 
- PEEK ( - 16336) - PEEK 
( - 16336): NEAT 
FOR PA = 1 TO 1500: NEXT PA 
HOME : PRINT “YOU 
ITH "MNY" DOLLARS" 
IF MNY =< 100 THEN 
ETTER STICK TO THE 
INES! ": RETURN 
IF MNY «< 300 THEN 
OT SO GOOD": RETURN 
IF MNY < 15300 THEN PRINT " 
NOT BAD AT ALL.«..."s RETURN 


PRINT "“THAT’S GREAT! "$ 

IF MNY > GOO@ THEN PRINT " 
WOW s WHATTA ROLL!!!" 

RETURN 


STOPPED W 


PRINT "B 
SLOT MACH 


PRINT "N 
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@ THEN 


Dragon's Lair 
In this game the maze is constructed before your eyes but becomes invisible 
when completed. You must avoid the man-eating dragon and escape the maze. 
Otherwise you will attend the dragon’s dinner—as his main course! Only a 
good memory will save you from this terrible fate. To experiment with the 
graphics, type: LIST 2025. Again, change any line whose function is unclear. 
Specifically, begin by looking at line 2020. Change COLOR = 15 to COLOR = 4. 
Lines 3030-3033 check to see which direction you want to move. Each of the 
four lines which the computer might branch to, either increments or 
decrements the X or Y coordinate. For instance, line 3100 handles the job when 
the user has entered K (to move right). When you try to move right, the Y 
coordinate is unchanged. The X coordinate is increased (X2=PX+1). At the 
origin the XY coordinates are 0,0. As you move to the right, the Y coordinate 


stays at 0, but the X coordinate continually increases. Beginning at the origin, 
0,0, the coordinates would look like this: 


0,1 0,2 0,3 0,4...... 0,38 0,39. 
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10 REM HEHEHE KEKHKHEKRKKHEHHE 


11 REM % % % % % 
12 REM *** DRAGON’S LAIR *** 
13 REM *** KE 
14 REM KH KKRHKHEKH KKH HHH KHSE 
i5 REM 
iG REM 


=O 
3@ 
42 
2@ 
60 
1000 
1001 
1002 
1010 
1020 


1030 


1940 


1060 


1070 


1080 


GOSUB 1000: REM INSTS 
GOSUB 2000: REM SETUP 
GOSUB 38000: REM PLAY! 
GOSUB 4000: REM !END! 
END 


REM *#* INSTS 


TEAT : NORMAL : HOME 

VTAB 3: HTAB 10: PRINT "xx 

DRAGONS LAIR #*#**" 

VTAB 7: PRINT "YOU WILL BE 
PLACED IN A MAZE WITH A MAN- 
EATING DRAGON." 

PRINT : PRINT "YOUR PROBLEM 
IS TO TRY AND ESCAPE FROM 
THE MAZE BEFORE THE DRAGON M 

AKES A MEAL OUT OF YOU." 


PRINT : PRINT "YOU MOVE BY 
PRESSING : “: PRINT : PRINT 

" UP - ‘T’"s PRINT 
" DOWN - “M's PRINT 
" RIGHT - “KS "ss PRINT 
ut LEFT _ eye" 


VTAB 23: INPUT “HIT RETURN 
WHEN READY TO CONTINUE : "3A 
NS$ 

HOME : YTAB 3: HTAB 10: PRINT 
"%#* DRAGONS LAIR **##" 

VTAB 7: PRINT "YOU MAY PLAY 

IN ONE OF THE FOLLOWING TWO 
MODES:": PRINT : PRINT " N 
ORMAL": PRINT “WHERE THE DRA 
GON MOVES ONLY AFTER YOU M 
AKE A MOVE ..." 
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1090 


1100 


1110 


1990 
2000 
2001 
2002 
20190 
2015 


2020 


PRINT : PRINT ° REAL-TIME 
": PRINT "WHERE THE DRAGON’S 

PURSUIT IS CONSTANT:+ WHETHE 
R YOU MOVE OR NOT ! " 

PRINT PRINT " WILL YOU 
PLAY:"s PRINT +: PRINT " 
NORMAL -OR- 
-~TIME" 

VTAB 23: CALL - 958: 
"WHAT IS YOUR CHOICE 
ANS$:ANS$ = LEFT$ 

IF ANS#$ << = "N" 

> "R" THEN 111@ 

RETURN 


REAL 


INPUT 
(N/R) "5 

(ANS$ +1): 
AND ANS$ < 


REM 
DIM MA(13+13%4) 
DEF FN RCA) = 
1) * X) + 1 
RA = FN RC13)sRY = FN R13 
): GR COLOR= i5: FOR I = @ 
TO 18 STEP 3: HLIN 0939 AT 
I: HLIN @°39 AT 39 - Is: VLIN 
2:39 AT I: VLIN @s39 AT 39 - 
IT: NEAT 

HOME : YTAB 22: PRINT " < 
<< I’M NOW BUILDING THE LAIR 
pee" 
COLOR= 


*#** SETUP 


INT ¢( RND ( 


Q@:CNT 1: GOTO 2070 


IF FN R(10) = 
ON FN R(4) 
2085 12090 

IF RX = 13 THEN 2035 

IF MACRX»RY 21) THEN 2035 

IF MACRX + 1sRY¥»@) THEN 203 
0 

VLIN 39 *# RY - 293 *® RY - 1 AT 
3 * RXsMACRA RY +O) = MACRX oR 
YoO) + LEMACRA RY s1) = 1LERX 
RX + 1L2MACRXsRY¥ 23) = 1SMACRX 
MARV 9D) = MACRA PRY 1B) + 1 


1 THEN 2100 
GOTO 2075 ,2080, 
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£079 
2080 
2081 
2082 


£083 


2084 
2085 
-O86 
2087 


2088 


-@89 
2090 
2091 
2092 


2093 


GOTO 2095 

IF RY = 13 THEN 2035 
IF MACRK+RY +2) THEN 

IF MACRX+>RY + 150) 
2 

HLIN 3 * RX - 2:93 * RX - 1 AT 
3 *# RYEMACRKX RY 18) = MACRX>R 
YsO) + LTEMACRK RY +2) = TtRY = 
RY + 1TEMACRKX RY +4) = 1:5MA(RX 
ORY 9D) = MACRK RY +O) + 1 

GOTO 2095 

IF RX = 1 THEN 2035 

IF MACRX>RY +3) THEN 2835 

IF MACRX - LeRY +O) THEN 2093 
2 

WLIN 3 * RY - 
3 * (RX - 


2035 
THEN 203 


2rd * RY - 1 AT 
1) sMACRA RY »@) = M 
ACRX RY 218) + LEMACRA SRY +3) = 
PsRA = RA - LTEMACRAsRYs1) = 
1sMACRX sRY 98) = MACRA ORY +O) + 
1 

GOTO 2095 

IF RY = 1 THEN 2035 

IF MACRA RY +4) THEN 2035 

IF MACRA RY - 1°80) THEN 203 
3 

HLIN 3 * RA - 
3 * (RY - 


2+3 * RX - 1 AT 
1) :MACRAsRY +O) = M 
ACRA RY 90) + LEMACRA SRY +4) = 
1sRY = RY - LTsMACRARY +2) = 
LeMACRA RY 28) = MACRA RY 98) + 
1 

GOTO 2095 


IF MACRA RY »@) = 1 THEN CNT 
= CNT + 1: IF CNT = 169 THEN 
2200 

GOTO 2035 
RX = FN ROIS) :RY = FN R13 
Ys IF MACRA+RY +8) = @ OR MAC 
RAsRY¥»O@) = G4 THEN 21900 

GOTO 2035 

GR COLOR= 15: YVLIN @:39 AT 
39: HLIN @+39 AT 39: VLIN @> 
39 AT @: HLIN 0:39 AT O 
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23190 


2320 


£400 


2490 


2500 
2505 


PX = 1:PY = 
BixXk = PKsYY = 
"4 
WY 


FN R(13): 
PY: 


COLOR= 
GOSUB 25¢ 


FN R(13): COLOR= @: VLIN 
WY 3 - 2eWY * 3 - 1 AT 3Y 
MA 13sMY = WY: COLOR= Lixx 

= MKASYY = MY: GOSUB 2500 

POKE 768:173: POKE 769-48: 
7/70+s192: POKE 771,136: POKE 
772:208: POKE 773*4: POKE 77 
4:198: POKE 775+1: POKE 776, 
240 

POKE 777:;8: 
7795208: 


ioe 


POKE 


POKE 778 s2@2: 
POKE 780,246: POKE 
7815166: POKE 782,@: POKE 78 
376: POKE 784;:0: POKE 78553 
: POKE 786;96 


POKE 


FOR I = 1 TO 13: FOR J = 1 TO 
132MACTsJ»O) = O@: NEXT Jol 
HOME PRINT "K) FOR RIGHT 
I) FOR UP": PRINT "M) F 

OR DOWN J) FOR LEFT" 
RETURN 

REM +**%* DRAW A SQUARE 

FOR I = KX * 3 - 2 TO KX * 
3 - 1: FOR J = ¥Y¥ * 3 - 2 TO 
YY * 3 - i: PLOT IsJ: NEXT J 
sI: RETURN 

REM *#** PLAY 

IF PEEK (¢ - 16384) < 128 AND 
ANSS = "R" THEN 3700 

IF PEEK ( - 16384) i28 THEN 
3015 
KEY = PEEK ( - 16384): POKE 

- 16368 +@ 
KEY$ = CHRS (KEY - 128) 

IF KEYS = "K" THEN 3100 

IF KEYS = "M" THEN 3200 

IF KEYS = "J" THEN 3300 

IF KEY$ = "I" THEN 3400 

POKE @+200: POKE 1/100: CALL 
768: GOTO 3700 
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31080 


31190 


3200 


32190 


3300 


3310 


IF MACPAsPY +1) THEN X2 = PX 

+ 1:¥Y2 = PY: GOTO 3500 

POKE @+2@: POKE 1:20: CALL 
768: COLOR= 4: YLIN PY * 3 - 
3*PY * 3 AT PX * 3: GOTO 372 
"4 

IF MACPX+PYs2) THEN X2 = PX 
s¥2 = PY + 1: GOTO 3500 

POKE @+920: POKE 120: CALL 
768: COLOR= 4: HLIN PX * 3 - 
3+PX * 3 AT PY * 3: GOTO 370 
"4 

IF MAC PX+sPY¥+3) THEN X2 = PX 

- 1:Y¥Y2 = P¥: GOTO 3500 

POKE @+920: POKE 1°20: CALL 
768: COLOR= 4: VLIN PY * 93 - 
3*PY * 3 AT (PA - 1) * 3: GOTO 
3700 

IF MACPA+PY +4) THEN X2 = PX 
©¥2 = PY - 1: GOTO 3500 

POKE @s20@: POKE 1°20: CALL 
768: COLOR= 4: HLIN PK * 3 - 
3*PX * 3 AT (PY - 1) * 3: GOTO 
3/00 

COLOR= @:Axx = PALYY 
2900: COLOR= 8:xA 
Y2: GOSUB 2500:Px 
Y2: GOTO 3700 

IF PX = 13 AND PY = WY THEN 
WIN = 1: RETURN 

IF PX = MA AND PY = MY THEN 
KX = MK2¥YY = MY: COLOR= 1: GOSUB 
ZOOO:WIN = O@: RETURN 

ON FN R(4) GOTO 3710+3711>5 
3712+3713 

IF MA < PX THEN 37290 

IF MY «< PY THEN 3730 

IF MX > PA THEN 37490 

IF MY = PY THEN 3750 

GOTO 3710 

IF MX = 13 THEN 3730 

IF MACMA +MY +@) > 3S THEN 372 


P¥: GOSUB 
2Y¥ 
2PY 


oe 
os 
PIP 
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3724 


3726 


3730 
3732 


3734 


3736 


3740 
3742 


3744 


3746 


3800 


IF NOT MACMXsMY+1) THEN 37 
3@ 
K2 = MX + 1:t¥2 = MYtAK = MA? 
YY = MY: COLOR= @: GOSUB 250 
@ikXX = XZ2YY = Ye: COLORS= 1: 


GOSUB 25@0:MxX = K2:MY = Ye: 
MACMX +MY 20) = MACMASMY +O) + 
1: GOTO 3800 


IF MY = 13 THEN 3740 

IF MACMXsMY»@) = 3 THEN 373 
G 

IF NOT MACMX»MY+2) THEN 37 
40 
X2 = MX:¥2 = MY + 1:2XXK = MK: 
YY = MY: COLOR= @: GOSUB 2590 
OsXX = K2:YY¥ = Ye: COLOR= 1: 
GOSUB 25@0:MxK = X2:EMY = Yes 
MACMK sMY s9@) = MACMXK +MY +) + 
1: GOTO 3800 

IF MX = 1 THEN 37590 

IF MACMX oMY +@) > THEN 374 
G 

IF NOT MACMXK»MY+3) THEN 37 
oO 
X2 = MX - 1:Y¥2 = MYtRX = MXs 
YY = MY: COLOR= @: GOSUB 2590 
Os:XX = X2:YY¥ = Y2: COLOR= 1: 


GOSUB 2500:Mx = 
MACMX eMY +2) = 


KeeMY = Ye: 


MACMA »MY5@) + 


i: GOTO 3800 

IF MY = 1 THEN 3720 

IF MACMX»MY+*@) = 3S THEN 375 
6 

IF NOT MACMXsMY +4) THEN 37 
2@ 
X2 = MXs¥2 = MY - LtKK = MAS 
YY = MY: COLOR= @: GOSUB 295@ 
@iXX = X2:YY = Y2: COLORS= 1: 
GOSUB 250@:MX = X2:MY = Yes 


MACMX +MY +@) = MACMX MY +O) + 


i: GOTO 3800 
IF PX = 13 AND PY = WY THEN 
WIN = 1: RETURN 
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3805 


3810 
3990 
A200 
Adal 
4002 
4010 
4020 


4035 


4095 
4100 


41190 


4990 


ON **#*#*% 


IF PX Mx AND PY THEN 
WIN RETURN 

GOTO 30190 

RETURN 

REM **%* END 

IF (WIN) THEN 4100 

HOME FOR I = POKE 
+I: POKE 1520: NEAT 
: FOR I 1 TO 3: POKE 0;200 
¢ POKE 12150: CALL 768: NEXT 

>: POKE @*24@: POKE 1250: CALL 
768 

VTA PRINT BUT 
THE DRAGON GOT YOU...." 

RETURN 

HOME FOR I = 3@ TO 20 STEP 
- 1: POKE @sT:s POKE 1:20: CALL 
768: POKE @oI - POKE 1:29 

: CALL 768: NEAT 

VTAB PRINT "“*#*#*##* YOU W 


(BUT NOW THE DRAGO 
NIS EVEN HUNGRIER!)" 
RETURN 


/; 


SN 
fe 
Uy 
Wy 
y 
4, 


fT), CO Mf, SSS 
WHE Dr. 
—, ‘\ . 


} 


Wh 


HY 
me ts 
We 


In this popular word game, you try to surmise the ‘secret word’ by guessing 
individual letters contained therein. Failure to divine the complete word will 
result in the completed figure being hanged. Because the graphics are quite 
clear in this program, a few lines will be highlighted. Type: LIST-2140. Line 
2100 draws a white border around the gallows. Line 2110 draws the gallows. 
Line 2120 completes what line 2110 started. Lines 2130-2135 draw the stairs 
leading up to the hanging platform. Each time you make an incorrect guess, 
line 3070 instructs the program to perform a subroutine. These subroutines 
each draw a separate part of the prisoner’s body. Each line (2200-2900) draws a 
piece of the man. Line 2200 draws the head, line 2300 draws the eyes, line 2400 
draws the mouth, and so on. You are encouraged to experiment with these 
lines and to change or omit any line whose function is unclear. 
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1035 
1040 


1045 


1050 


1059 
1060 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
END 


REM 


TEX 
VTA 
HAN 
VTA 
PRI 
GIV 
YOU 


HHEEKHKEKHKEHKHEKKKKKEKKE 


HHH eH 
HEX HANG MAN HH 
+ % ¥ HHH 


HHEEHHEHKKEKKKKKKKEKEKE 


1000: REM INSTS 
2000: REM SETUP 
3000: REM PLAY! 
4200: REM !END! 


*#*% INSTS 


T +: NORMAL : HOME 


B 3: HTAB 12: PRINT "*x% 


G MAN **##" 
B ? 


NT "IN THIS GAME YOU ARE 
EN THE FORMAT OFA WORD. 


TRY TO SPELL OUT THE 


MYSTERY WORD BY GUESSING 


ONE LETTER AT ATIME,. '" 


PRI 
PRI 
THE 
LL O 
R 
N WI 


NT 


NT "IF THE LETTER IS IN 
WORD»s I WILL EXPOSE A 
CCURRENCES OF THAT LETTE 
IN THETR CORRECT POSITIO 
THIN THE WORD. IF YO 
U GUESS A LETTER 
IN THE WORD » 


NOT FOUND 


LLOWS. 


PRI 
PRI 


NT 


NT "WHEN THE MAN IS COMP 


LETEs (HEAD+ MOUTH: EYES» 


MS » 
ND 


PRI 


INPUT 


AND LEGS)» HE IS HUNG 


YOU LOSE. TQ WIN»+ GUESS 
THE ENTIRE WORD CORRECTLY." 


NT 


Y TO CONTINUE : "SANS$ 
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THEN I WILL ADD 
A PART TO THE MAN IN THE GA 


"HIT RETURN WHEN READ 


199@ 
2000 
2001 
2002 
2-010 
2020 


O30 


£031 


2032 


2033 


2034 


21190 


2130 


2135 


RETURN 

REM *** SETUP 

RESTORE 

FOR I = 1 TO INT (¢ RND (1) 
* 30) + 1: READ WRD: NEXT 
DATA "PENCIL" »>"COMPUTER" +"P 


RINTER" »"ELEPHANT" »"NOTEBOOK 


DATA "HANGMAN" +"POSTER" +"CE 
TILING" »"FOOTBALL" »"EVERGREEN 
DATA "YESTERDAY" »>"MIRROR" +" 
PICTURE" +>"CARPET" »>"MONOPOLY" 
DATA "SCOUNDREL" »"PROFILE" » 
"EQUIPMENT" »"FOUNTAIN" s"LAVI 
SH" 

DATA "COOKIES" »"PLEASURE" »" 


ROUTINE" »"TEACHER" »"REGULAR" 


DATA "BARBECUE" +» "BARRIER" +" 
PAYEMENT" +" THOUGHTFUL" » "MARR 
TAGE" 


DIM GU$(15):WL = LEN (WRDS 
): FOR I = 1 TO WL:GUS(T) = 
CHR (95): NEAT 
GUESSED$ = "" 

GR COLOR= 15: HLIN 0°39 AT 


@: HLIN @*39 AT 39: VLIN O53 
9 AT 39: VLIN 0:39 AT @ 

HLIN 3,34 AT 28: VLIN 7,35 AT 
5S: VYLIN 29,35 AT 34: HLIN G6» 
21 AT 7 

PLOT G11: 
8,9: PLOT 9°78: 
2099 

COLOR= 8: HLIN 19721 AT 29: 

HLIN 17°23 AT 31: HLIN 152 
9 AT 33: HLIN 13°27 AT 35 

COLOR= 9: HLIN 18:22 AT 30: 

HLIN 1624 AT 32: HLIN 14:22 
G AT 34 


PLOT 
PLOT 


PLOT 7:10: 
PLOT 20,8: 
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a 


£190 RETURN 
2200 COLOR= 2: HLIN 1921 AT 10: 
HLIN 19+21 AT 1G: YVLIN 12 51 
4 AT 17: VLIN 12°14 AT 23: PLOT 
i8@ylils:s PLOT 22,511: PLOT 1851 
of PLOT 22/15: RETURN 
2300 COLOR= 7: PLOT 1812: PLOT 
i9M*1l2: PLOT 21,12: PLOT 2251 
2: PLOT 19°13: PLOT 21/13: RETURN 


2400 COLOR= Gs: PLOT 19915: PLOT 
£0,144: PLOT 21°15: RETURN 
2900 COLOR= 3: VLIN 17:22 AT 20: 
RETURN 
2600 COLOR= 12: HLIN 17:19 AT 19 
VLIN 19921 AT 17: RETURN 
“=/@0@ COLOR= 12: HLIN 21:23 AT 19 
VLIN 19,21 AT 23: RETURN 
“800 COLOR= 4: PLOT 1923: PLOT 
18+»24: HLIN 16°18 AT 25: RETURN 


£900 COLOR= 4: PLOT 2123: PLOT 
221243 HLIN 22924 AT 235: RETURN 


3000 : 
3001 REM **# PLAY 
3002 : 
3010 HOME : PRINT "WORD: "3s: FOR 
I = 1 TO WL: PRINT GU#(1I)5: NEXT 
PRINT 
3@15 FOR I = 1 TO WL: IF GUS(I) 
> CHR (95) THEN NEXT :WO 
L = i: RETURN 
3020 PRINT "GUESSES: "sGU$ 
3030 PRINT =: PRINT "WHAT IS YOUR 


GUESS ===> "“$: GET ANS$ 
3040 IF ANS$ "A" OR ANS$ > "2" 
THEN 3010 


3045 FOR I = 1 TO WL 

3050 IF MIDS (GU$+I+1) = ANS# THEN 
VTAB 23: HTAB 1: CALL - 95 
8: PRINT "2 THAT’S ALREADY 
BEEN GUESSED #23": FOR PA = 
1 TO 1000: NEAT PA: GOTO 3¢@1 
"4 
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3035 
3860 


3865 
3070 


3875 


3080 


3090 
ABO 
Adal 
Ada2 
4010 


4060 


4990 


NEXT 
RC = @: FOR IT = 1 TO WL: IF 
MIDS (WRSsT+1) = ANS$ THEN 
GUS(T) = ANSS$:RC = RC + 1 
NEXT : IF RC > @ THEN 3010 
GUS = GUS + ANS$: ON LEN (G 
US) GOSUB 2200 +2300 524005250 
0+»2600 +2700 +2800 »2900 
XA = PEEK ( - 16336) + =PEEK 
( - 16336) + PEEK ( - 16336 
) + PEEK ( - 16336) 
IF LEN (GU$) < 8 THEN 3010 


WOL = @: RETURN 
REM +**%* END 


FOR I = @ TO 39: COLOR= INT 
( RND (1) * 15) + 1: VLIN Oy» 
39 AT I:XX = PEEK ( - 16336 
) - PEEK ( - 16336) - KA = 

PEEK ( - 16336) - AX = PEEK 
( - 16336): NEAT 

FOR PA = 1 TO 150@: NEAT PA 


TEXT =: HOME =: YVTAB 3 

PRINT "THE GAME IS OVER ! 1! 

IF WOL THEN PRINT =: PRINT 

PRINT "YOU GUESSED THE COR 

RECT WORD;+ AND THE": PRINT “ 
PRISONER WILL GO FREE !!!" 

IF NOT WOL THEN PRINT =: PRINT 
: PRINT "THE PRISONER HAS BE 
EN HUNG: AS YOU": PRINT "FAT 
LED TO GUESS: "WRDS" J!!!" 
PRINT s PRINT INPUT "DO YO 
U WISH TO PLAY AGAIN? "SANS$ 


: IF LEFT (ANS#+1) = “Y¥" THEN 
RUN 
RETURN 
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In this game you build a maze for the maze-loving Itche worm. Upon 
instruction, the worm will attempt to solve the maze. Though not a game per 
se, it is an ingenious utilization of graphics. The two routines which control 
color begin at 2000 and 2700. Line 2210 sets the color of the maze perimeter 
and then branches to 2700. Whether you are moving, plotting, or erasing, you 
must specify which direction you intend to travel. Lines 2715-2740 check to see 
which of the four directions you chose and will cause the program to branch to 
the accommodating line (2750-2780). Lines to experiment with include 2010, 
2210, and 3010. 
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10 
11 
12 
13 
14 
i) 
16 
20 
3@ 
40 
0 @ 
60 
1000 
1001 
1002 
1010 
1020 


1030 


1040 


1050 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
END 


REM 


HEKHEKREKREHREKREKREKHEKKEEH 


% % % % % % 
HHH ITCHE % HH 
% % % KH % 


HREKHEKEKEKHEKREKRKEKEKRKEE 


1000: REM INSTS 
2000: REM SETUP 
3000: REM PLAY! 
40900: REM !END! 


*#** INSTS 


TEXT : NORMAL : HOME 

VTAB 2: HTAB 13: PRINT "*x* 
ITCHE ***#" 

VTAB 4: PRINT "THIS IS THE 


GAME 


OF ITCHE. THE ITCHE [5 


A SPECIAL WORM WHO LIKES TO 
SOLVYE MAZES.YOU ARE TO CREAT 
E A MAZE FOR THE ITCHE TO § 


OLVE 


as 
4 


PRINT : PRINT "BY USING THE 
FOLLOWING INSTRUCTIONS, YOU 


WILL 
UPON 
CHE 
UGH 
PRI 
E TH 


PRI 
AME. 
PRI 
E MA 
PRI 
SE: 
PRI 


PRI 
R=R 


BUILD THE MAZE WALLS, 
COMMAND, (G)»s IT 
WILL WIND HIS WAY THRO 
THE MAZE," 
NT =: PRINT "G)O TO HAY 
E ITCHE WORM FIND THE 
EXIT TO YOUR MAZE." 
NT "ADIT TO EXIT THE G 
NT "C)LEAR TO START TH 
ZE OVER," 
NT : PRINT "E) FOR ERA 
FOLLOWED BY THESE..." 
NT "M) FOR MOVE 
U=UP" 
NT "P) FOR PLOT 
IGHT L=LEFT" 
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2017 


2019 


2020 
2030 
2039 
2040 
2045 
20530 
2039 
2036 


2-060 


2100 
2110 


PRINT “ 
D=DOWN" 

PRINT 

INPUT “PRESS RETURN WHEN RE 
ADY TO CONTINUE : "SANS$ 

RETURN 

REM *** SETUP 

GR HOME :CL = 1: COLORS= 4 

HLIN @+*39 AT @: HLIN 0:39 AT 
39: VYLIN @+39 AT Os VWLIN O23 
9 AT 39: COLOR= @: PLOT @o1: 

PLOT 391 
IX = 2:1Y = 1: COLOR= 7: PLOT 
IXsIVY:CLR = 16:CLRe = @ 

POKE 768:173: POKE 76948: POKE 
770:192: POKE 771136: POKE 
77229208: POKE 7734: POKE 77 
4%198: POKE 775+1: POKE 776+» 
<4 

POKE 777:8: POKE 778+:202: POKE 
779+208: POKE 780,246: POKE 
781,166: POKE 782;@: POKE 78 
3976: POKE 784;,0: POKE 78553 

POKE 786,96 

HOME PRINT "G)0O C)LEA 
R ADIT UDP D)OWN P 
)LOT E)RASE M)OVE === 
LYEFT R)IGHT" 

GET ANS$ 

IF ANSS = "G" THEN 2100 

IF ANS$ = "P" THEN 2200 

IF ANS$ = "M" THEN 2300 

IF ANSS = "E" THEN 2400 

IF ANS# = "C" THEN 2500 

IF ANS# = "X" THEN 2600 

IF ANS = CHR (3) THEN 26 
22 

POKE @+10: POKE 15: CALL 7 
68: GOTO 2020 

REM *#% GO ROUTINE 

RETURN 
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REM 
CLR 
REM 
CLR 
REM 
CLR 
REM 


GOTO 


REM 


*¥*#¥%* PLOT ROUTINE 

9: GOTO 2700 

#*¥%*% MOVE ROUTINE 

1G: GOTO 2700 

*#*% ERASE ROUTINE 
@: GOTO 2700 

**%* CLEAR ROUTINE 
2010 

*#**% EXIT ROUTINE 


HOME PRINT 
u wish to quit 
LEFT (ANS +1) 
: GOTO 3@ 

HOME 
REM 
GET ANS#:kKe = 
IF ANS# = "R" 
IF ANS# = "D" 
IF ANS$S "LL" 
IF ANS#$ = "U" 
GOTO 2030 


INPUT 


"Do 


: "SANS$: 


= uyu 


GOTO 2019 
#%% DIRECTIONS 
TxX:y¥2 


THEN 
THEN 
THEN 
THEN 


= IY 
2/730 
=/60 
2/70 
= /80 


THEN 


REM 
x2 = 
2790 


i 
,\i. 7 


13: 
REM 
Y2 = 
2/90 
Y2 = 
13: 
REM 


1 
Vc 


2/90 


‘> = 
1. = 


aH 
REM 
Y2 = 
2/90 


Y2 = 


9: CALL 
COLOR= 
COLOR= 


Ik 


38: 
CALL 768: 


Ty 


38: 
CALL 768: 


IX - ls 


CALL 768: 


I¥ - ls 


#*#* RIGHT 
+ 1: IF 


Ke 


39 THEN 
POKE @,»20@: POKE 1+ 
GOTO 279@ 

¥*¥* DOWN 

+ 1: IF Y2 39 THEN 
POKE @+»200: POKE 1+» 
GOTO 2790 

HH LEFT 

IF X2 }* @ THEN 
POKE @+200: POKE i151 
GOTO 279@ 

¥X% LP 

IF Y2 @ THEN 
POKE 0-200: 
768: 
CLR: 
C2 


POKE i+1 
GOTO 2790 


IF CLR = 16 THEN 
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2/92 PLOT [Xs1I¥:C2 = SCRNC K2s¥ 
2): COLOR= 7: PLOT A2s¥2:IXK = 
Ae2elY = Ye: COTO 2700 


3001 REM **% PLAY 


3@0@5 HOME : PRINT : PRINT “see I 
TCHE IS NOW SOLVING THE MAZE 


2 = 1:¥2 = 1: COLOR= 13: PLOT 


3@15 COLOR= CLR: IF CLR = 16 THEN 
COLOR= C2 
3@16 PLOT I[xksTIY 
3020 X39 = O:Y3 = 1:DIR = 2 
3030 IF K2 + X3 = @ AND Ye + YO = 
1 THEN RETURN 
3035 IF X2 + X3 = 39 AND Y2 + Y¥32 
= 1 THEN RETURN 
3@40 IF X2 + X3 * @ AND X2 + AB 
39 AND Y2 + Y3 > @ AND Y2 + 
Y3 < 39 AND SCRN( XK2 + AKABeY 
= + Y3) = @ THEN 3100 
3045 DI DI - is IF DI “< 1 THEN 
DI 4 
3050 IF DI = 1 THEN X3 = 1:Y3 = 
@: GOTO 3030 
3055 IF DI = 2 THEN X3 = @:Y3 
1: GOTO 3030 
3060 IF DI = 3 THEN X23 
= @: GOTO 3030 
3065 IF DI = 4 THEN X3 = @:Y3 = 
- 1: GOTO 3030 
3100 COLOR= @: PLOT X2;Y2: COLOR= 
13:X2 = K2 + X3s¥2 = Y2 + Y3 
PLOT X2+Y2:CL = CL + 1:DI = 
DI + i: IF DI + 4 THEN DI = 
1 
3110 POKE @+25: POKE 1:3: CALL 7 
68: GOTO 3050 


- 1:Y¥3 


4001 REM *** END ow Je 
4002 : —— 
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401@ COLOR= @: PLOT AK2sY2:xK2 = & 
2+ X3:sY2 = Y2 + YO: FOR I = 
1 TO 1@: COLOR= 13: PLOT Xé2+s 
Y2: POKE @»2@0: POKE 1/20: CALL 
768: COLOR= @: PLOT X2;Y2: POKE 
2,40: POKE 1°20: CALL 768: NEXT 
I 

4020 HOME : PRINT 


4025 IF LEFTS (ANS$+1) = "¥" THEN 
PRINT "<< ITCHE SAYS YOU SP 
OILED HIS FUN !!! 33": RETURN 


4030 IF x2 = 39 THEN PRINT "<ee 
ITCHE HAS SOLVED THE MAZE ; 
23": PRINT "HE DID IT IN “CL 
" CLICKS...": RETURN 
4040 PRINT “<<¢ ITCHE CANNOT SOL 
VE YOUR MAZE 222": PRINT "HE 
IS STUCK AT THE BEGINNING... 
o's RETURN 


"ere, 
write 


This game is similar to the video dinosaur, Pong. You have five men, as does 
your opponent. Using the paddles, you try to deflect the ball into your 
opponent's men and also protect your own. The winner is the first player to 
eliminate all of the other player’s men. The graphics are very straightforward 
and easy to understand. Start by typing: LIST -2043. The setup is handled 
almost entirely in lines 2030-2043. Line 2031 controls the color of the court's 
perimeter. If you want to verify this, change the color to any number through 
15. Rewrite line 2032 so that it reads: 2032 HLIN 4,32 AT 12:HLIN 6,27 AT 34. 
Run the program to see what changes occur. Make similar changes to line 
2033, then run the program. Line 2040 sets the color of the five men. 
Experiment with different colors. Rewrite line 2041 so that it reads: 2041 FOR I 
= 1 TO 33 STEP 8. Run the program. Change line 2042 so that it reads: 2042 
VLIN L,1+4 AT 8:VLIN L1I+ 2 AT 31. Hopefully, these visual modifications will 
help you to understand the function of each line. Next, we will look at how the 
ball is controlled, and why it is white. Line 3075 sets the color to white, 

(color =15). If you want to change the color of the ball, then change line 3075. 
Lines 3070,3071,3080,3085-6-7, and others, control the movement of the ball. 
Line 3090 specifically cntrols the ball when it hits either back wall. To confirm 
this, type: 3090. Hit RETURN, then rerun the program. 


1389 


1040 
1050 


10935 
1060 


1070 


1080 
2000 
2001 


REM 


HREHKKEHKHEKKHEKKHEKHKKEKEE 


REM %*x*+* H% % 
REM *#%* KNOCK OUT **+* 
REM **%* HX % 
REM KEKE KHKEKRKEKEKRHERKEEE 
REM 
REM 
GOSUB 1000: REM INSTS 
GOSUB 2000: REM SETUP 
GOSUB 3000: REM PLAY! 
GOSUB 4000: REM 'END! 
END 
REM *** INSTS 
TEXT NORMAL HOME 
VTAB 3: HTAB 11s: PRINT “x*% 
KNOCK OUT **#" 
VTAB 7: PRINT "“*¥KNOCK OQUT* 


IS A TWO PLAYER GAME THAT IS 
SIMILAR TO PONG. EACH PLAYE 
R HAS A PADDLE WITH WHIC 
H HE TRIES TO RETURN THEBALL 

INTO HIS OPPONENT’S COURT," 


PRINT 

PRINT "THE OBJECT OF THE GA 
ME IS TO KO (KNOCK QUT) YOU 
R OPPONENT ’S MEN WHILE DEFEN 


DINGYOUR OWN," 
PRINT 
PRINT "THE FIRST PLAYER TO 


KNOCK OUT ALL OF THEOPPOSITI 
ON’S MEN IS THE WINNER, " 

VTAB 22: INPUT “HIT RETURN 
WHEN READY TO CONTINUE "SA 


NSS 
RETURN 
REM *** SETUP 
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2002 
2010 


2020 


2030 
2031 
2032 


2033 


2040 
2041 
2042 


2043 
2030 
-060 


20970 


2080 
2090 
2100 
£1190 
2120 


2130 


2-140 


POKE 768,173: POKE 769;48: POKE 


770:192: POKE 771:+136: POKE 
7729208: POKE 773+4: POKE 77 
4:;198: POKE 775:+1: POKE 776, 
240 

POKE 777+8: POKE 778+202: POKE 
779+208: POKE 780:+24G6: POKE 
781+16G: POKE 782:+@: POKE 78 
3*7G: POKE 784;:@: POKE 785;3 

POKE 786;96 

GR HOME 

COLOR= 15 

HLIN @+39 AT @: HLIN @:39 AT 
39 

VWLIN @+39 AT @: VLIN @:39 AT 
39 

COLOR= 12 

FOR I = 6 TO 30 STEP 6G 

WLIN IsI + 3 AT St VLIN IoI 
+ 3 AT 36 

NEXT I 

LET O0@ = i: LET O1 = 1 
PRINT “PLAYER # I 

PLAYER # 2" 

FOR I = 1 TO 100: GOSUB 2190 
QO: NEXT I 

LET SF = 1 

RETURN 

REM *#*%* PADDLE CONTROL 
P@ = INT (¢( PDL (@) * 10 / 7 
> + 1):P1 = jINT ( PDL (1) * 
i@/ 75 + 1) 

IF P@ > 00 THEN COLOR= 


@: VYLIN 00,00 + 3 AT 14: COLOR= 
4:00 = P@: VLIN 00,00 + 3 AT 
IF Pl < O1 THEN COLOR= 
@: YVLIN 01°01 + 3 AT 25: COLOR= 
1:01 = Pi: VLIN O1;01 + 3 AT 
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=160 
3OQO 
3001 
3002 
3060 
3070 


3071 


3075 
3080 


3085 


3086 


3087 


3089 
3090 


3100 


RETURN 
REM **%* PLAY 
Li = S:l2e = 3 
BX = INT ¢( RND (1) * 10) + 
iG:BY = INT ( RND (1) * 10) 
+ 16:BD = INT ( RND (1) * 
2) * 2 - il 
BS = INT ¢ RND (1) * 7) - 3 
IF BS = @ THEN 3071 
COLOR= 15: PLOT Bx>BY 
‘2 = BX + BD:¥2 = BY + BS: GOSUB 


2100 

IF SCRNC BasBY) = 15 THEN 
309 
BX = Bx - BD:BY = BY - BS:BD 

= - BD:BS = - BS: COLOR= 

153: PLOT BaxsBY: POKE @:5@: POKE 
1+1@: CALL 768 


IF BY < 1 OR BY 38 THEN B 
Y = BY + BS:BS = - BS 

GOTO 3080 

IF X2 < 1 OR Ke 38 THEN B 
D = - BD: POKE @+1@0: POKE 
1*1@: CALL 768: GOTO 3080 

IF Y2 < 1 OR Y2 + 38 THEN B 


5S = - BS: POKE @+100: POKE 
1+10: CALL 768: GOTO 3080 

IF SCRNC A2*¥Y2) = @ THEN 3 
190 

IF SCRNC A2+¥2) < & 12 THEN 
3125 

COLOR= @: YLIN INT (Y¥2 / G 

) * Gs INT (¥2 / GB) * G6 + 3 AT 
‘2: POKE @+25: POKE 1i+2: CALL 


IF x2 = 3 THEN Li = Li - 1 
IF X2 = 36 THEN L2 = L2 - 1 
IF Li = @ OR L2 = @ THEN 35 
OO 

GOTO 315¢@ 
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3140 


POKE @s5@: POKE 1:+1@: CALL 
768 
IF Ae * 29 THEN BD = - 
BD:BS = (Y¥2 - O@) (YZ - OO 
=) * 3: GOTO 308¢@ 

BD = - BD:BS = (Y2 - Q1) - 
(¥2 - Q1 3) * 3: GOTO 308¢ 
COLOR= @: PLOT BxX;BY: COLORS= 
15: PLOT K2s¥Y2:BX = xA2:BY = 
Ye: GOTO 3080 

RETURN 

REM **%* END 

HOME PRINT "THE GAME IS Q 
VER Fbd" 

PRINT "THE WINNER IS PLAYER 
# "52 - (L2 = @) 

RETURN 
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Whe 


Sess 


Pe 7 
Ty 


Leaky Faucet 


This is not a game. Rather, it is an excellent demonstration of how to use 
graphics. The idea is to simulate the effect of a dripping faucet. List through 
line 3035. Remember that color 0 is black. With that in mind, can you guess the 
function of line 3010? Line 3010 gives the color a random value between 0 and 
14.The assorted colors are for the original droplet configuration. If this is not 
clear, change line 3016 to read: 3016 COLOR= 2. Enter and then RUN. Line 
3030 draws the faucet. Experiment with these commands to confirm their 
function. Likewise, experiment with lines 3660-3717, and see if you can deduce 
their function. 


19) 


1040 


1990 
2000 
2001 
2002 
2010 


2990 
3000 
3001 
3082 
3010 


REM 
REM 
REM 
REM 
REM 
REM 
REM 


GOSUB 
GOSUB 
GOSUB 


END 


REM 


TEAT 
VTAB 3: 
THE LEAKY 
VTAB 7: 
REALLY 
EXTREMELY 
ICS DEMO.": 
E HOPE YOU ENJOY 
VTAB 23: 
WHEN READY 
NSS 


HHEEKHKKEEEKHKKKERHEEESE 
HEX HH 
*#*% LEAKY FAUCET **+* 
%&% HE 
KEKKKKKKEERKKKEEKKKEESE 


100d: 
<O00: 
3000: 


REM 
REM 
REM 


INSTS 
SETUP 
PLAY! 


*** INSTS 


HOME =: NORMAL 
HTAB 8: PRINT 
FAUCET **x" 
PRINT “THIS IS NOT 

A GAME, BUT AN 
ENTERTAINING GRAPH 
PRINT : PRINT "W 
If tei" 
INPUT “HIT RETURN 
TO CONTINUE "SA 


"HHH 


RETURN 


REM 


GR 

PRINT "<<< 
O MOVE FAUCET ¥>>": 
HOLD BUTTON @ TO START AG 


2’ 
7. 


AIN 


#*% SETUP 


sNU = 200: HOME : PRINT 
TURN PADDLE @ T 


PRINT "< 


% % % It 
“re 


RETURN 


REM 


COLOR= 
2539 AT 
NEXT: 

INT 

INT ¢ 
( RND 


I: 


#%% PLAY 

FOR I = @ TO 19: HLIN 
HLIN @+39 AT 39 - 

FOR I = 1 TO NU: COLOR= 
(1) * 15): PLOT (¢ 
(1) * 38)) + 1» INT 

* 20) + 20: NEXT I 


Qs: 
I: 


( RND 
RND 
(1) 
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3030 


3110 
3120 


COLOR= 4: HLIN @o2 
Q»2 AT Gt: HLIN Or2 
1: HLIN 3°35 AT da: 
2: HLIN 3:3 AT Gs: 
7: COLOR= G: 
o+32: HLIN 
I = 
S 


AT S: HLIN 
AT 7: COLOR= 
HLIN 3:5 AT 
HLIN 395 AT 
PLOT 38: PLOT 
397 AT 2 
S 

A = [:SY¥ = 
16336) + 

PEEK ( - 
16336) 

COLOR= 
3600 
52 = 
3200 

IF 
3200 

COLOR= @: PLOT SxsS5Y:SY¥ = § 
2: GOTO 31390 
LR = INT ¢ 

- 1: IF 

> @ AND 

> @ THEN 3500 

IF SCRN( SX + LR+SY) <> 
@ THEN LR = - LR: GOTO 3215 


Jerr = 
PEEK (¢( - 
16336) + 


PEEK ( - 
16336) + 
PEEK ( - 
i5: PLOT 


Sx +SY: GOSUB 


SY + 1: IF S2 39 THEN 


SCRN( SAK152) < @ THEN 


RND 
SCRN ¢ 
SCRN ¢ 


(1) * 2) * 2 
SX + LReSY) < 
SX - LR»SY) < 


SX + LR: IF 
= ¢ 38 THEN 3500 
IF SCRNC S2,s5Y) 
3500 
COLOR= @: 
=: COLOR= 
3600 
IF SY *< 39 THEN 
SAsSY + 1) = 
GOTO 322¢ 
IF PEEK (¢ - 
3120 
GOTO 3010 
P = PDL (@) 
IF P 92 THEN 3700 
IF P 18@ THEN RETURN 
IF I 35 THEN RETURN 


S52 < 1 OR S 


@ THEN 


PLOT SxX+SY:SX = §& 
15: PLOT SX+SY: GOSUB 


IF SCRN¢ 
@ THEN 31395 


16287) < 128 THEN 


ies 


| ra 
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3650 COLOR= @: PLOT I - @e2: PLOT 
I - 294: PLOT I+8: PLOT [33 

3655 I = I + 1 

366@ COLOR= 4: YLIN 3s7 AT I - 3 


367@ COLOR= 1: WLIN 437 AT I 

3680 COLOR= G: PLOT I + 2:2: PLOT 
I+3: PLOT [1:8 

3690 RETURN 

370@ IF I = 3 THEN’ RETURN 

371@ COLOR= @: PLOT I + 232: YWLIN 
3:8 AT I 

3715 I = I - 1 

371G COLOR= 1: VLIN 


3717 COLOR= 6: PLOT 
Iv3: PLOT 1:8 
3799 RETURN 
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Match the Key 


If you have ever played or ever seen Simon, then you will recognize this game. 
You must give the numeric equivalent of a lighted box sequence. There are a 
number of mnemonic devices which make it easier to recall a long string, but 
try to develop your own. A very good player can repeat a sequence of twenty 
boxes, and an expert can repeat a chain of thiry. The graphics in this program 
are interesting. Let's take a look. Lines 2020-2025 are responsible for the four 
brown squares being drawn. To verify this, change line 2021 so that it reads: 
2021 COLOR = 1. When you run the program the four boxes will be red. To 
change the size and shape of the four boxes, experiment with line 2024. 
Experiment with any lines that have an unclear function. 
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10 REM KEHEKKHEKRKKRKHEKHKHEEESE 

ii1 REM *** %H% 

if REM *%*%* MATCH THE KEY ** 

13 REM *** KH 

14 REM KH KKK KEKE KHKHHRKRKEKEE 

15 REM 

iG REM 

-0@ GOSUB 1000: REM INSTS 

30 GOSUB 2000: REM SETUP 

40 GOSUB 3000: REM PLAY! 

50 GOSUB 4000: REM '!END! 

6@ END 

100d : 

1001 REM *** INSTS 

i@@e : 

1010 TEXT NORMAL HOME 

ig20 YVTAB 3: HTAB Qs: PRINT "**¥% 
MATCH THE KEY *#*" 

1030 YVTAB 7: PRINT "THIS GAME WI 
LL TEST YOUR MEMORY. YOU 
WILL BE SHOWN A SCREEN WITH 
FOUR COLOREDBLOCKS ON IT. T 
HE COMPUTER WILL LIGHT UP O 
NE OF THE BLOCKS; AND SOUND 
ITS CORRESPONDING TONE." 

1035 PRINT 

ig@40@ PRINT “INPUT THE NUMBER OF 
THE LIGHTED KEY/S,. IF YOU A 
RE CORRECT+s THE COMPUTER WIL 
L REPEAT THE SEQUENCE AND 
ADD ANOTHER COLOR TO IT. 

1@45 PRINT 

1050 PRINT "AFTER EACH ADDITION, 

YOU MUST RETYPE THEENTIRE S&S 

EQUENCE. YOU ARE ALLOWED TH 
REE MISTAKES PER GAME. " 

1060 YTAB 22: INPUT “HIT RETURN 
WHEN READY TO CONTINUE "SA 
NS$ 

1990 RETURN 

2000 : 
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“001 REM *** SETUP 
2002 : 
£010 DIM SEQ(50): FOR I = il 
M@:SE(I) = INT ¢ RND (Cl 
) + 1: NEXT I 
£020 CR : HOME 
£021 COLOR= 8 
2£@22 FOR I = 3 TO 29 STEP 8 
£023 FOR J = 29 TO 35 
2024 HLIN I+I + 3 AT J 
£025 NEXT Jol 
2030 YVTAB 21: FOR I = 3 TO 29 STEP 
8: HTAB I + 4: PRINT (I + 9) 
/ 83: NEXT 
£040 POKE 768,173: POKE 769,48: POKE 
770:192: POKE 771+136: POKE 
77279208: POKE 773+4: POKE 77 
4:;198: POKE 775;1: POKE 776, 
240 
£045 POKE 777;8: POKE 778:+2@02: POKE 
779+208: POKE 78@,;24G6: POKE 
781,+16G: POKE 782,@: POKE 78 
39/76: POKE 784,@: POKE 785:3 
POKE 786,96 
£990 RETURN 
3000 : 
3001 REM *** PLAY 
3002 : 
30@1@ FOR I = 1 TO 3@:SC = (I - Il 
) - M: VTAB 22: HTAB 10: PRINT 
"MISSES: "M" SCORE: "SC 
3020 FOR J = 1 TO I: COLOR= 15: FOR 
K = 29 TO 35: HLIN SE(J) * 8 
- 3,SE(J) * 8 + 2 AT Ks: NEXT 
K: POKE @,» (3 - SE(J)) * GOs POKE 
1,5@: CALL 768 
3020 FOR J = 1 TO I: COLOR= 15: FOR 
K = 29 TO 35: HLIN SE(J) * 8 
- 3,SE(J) * 8 + 2 AT Kt: NEXT 
K: POKE @+(5 - SE(J)) * G@: POKE 
1+58: CALL 768 
3030 COLOR= 8: FOR K = 29 TO 39: 
HLIN SE(J) * 8 - 3+SE(J) * 
8 + 2? AT Ks: NEXT Ks: NEAT J 


TO 
% 


m 


) 
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3100 
3110 


3120 


3130 


3135 


3146 


3150 
3155 
3160 
3200 
3300 
3590 
4000 
4001 
40a2 
40190 
4020 
4030 
4031 
4032 
4033 
4040 


4045 


FOR J = 1 TOT 

IF PEEK ( - 16384) < 128 THEN 
31190 
X = PEEK ( - 16384): POKE - 
16368 +@ 

IF X < 177 OR XK > 180 THEN 
3110 

COLOR= 15: FOR K 29 TO 35 
s HLIN (X - 176) * 8 - 35(X - 
176) * 8 + 2 AT Ks: NEXT Ks POKE 
O*(3 - (X - 176)) * GO: POKE 
1°50: CALL 768 

COLOR= 8: FOR K = 29 TO 35: 

HLIN (X - 176) * 8 - 3X - 
176) * 8 + 2 AT Ks NEXT K 

IF X - 176 = SE(J) THEN 320 
@ 

POKE @925@: POKE 1°10@: CALL 
768M = M + 1: IF M *< 3 THEN 
3300 

RETURN 

NEAT J 

FOR PA = 1 TO S00: NEXT PA: 

NEXT Is RETURN 

RETURN 

REM #*%*% END 

HOME 

FOR J = @ TO 39 

COLOR= INT (¢( RND (1) * 12) 

* 1: HLIN @»39 AT J 

COLOR= INT ( RND (1) * 12) 

* 1: VLIN 0539 AT 39 - J 

COLOR= INT ( RND (1) * 12) 

* 1: HLIN @939 AT 39 - J 

COLOR= INT ( RND (1) * 12) 

* 1: VLIN 08,39 AT J 

POKE @+»J *# 2: POKE 1,5: CALL 
768: NEAT J 

PRINT 
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4090 IF M = 3 THEN PRINT "“<ee I 
"M SORRY YOU LOST «. « «23e": IF 
oC 1 THEN PRINT "YOU GOT 
THEM ALL WRONG! !!": RETURN 
4955 PRINT "<<< YOU GOT ALL 358 0 
F THEM !!1 323": RETURN 
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Miniature 


GOLF 


f 


This game is a simulation of miniature golf. There are hazards, obstacles, and 
unplayable lies, just as in the real thing. The graphics are interesting, and 
merit a closer look. Type: LIST -2060. Lines 2050-2058 draw the yellow-green 
background. For practice, change line 2050 so that it reads: 2050 COLOR= 6. 
Enter and run. Next, list through 2115. Lines 2105-2115 draw hole #1. Lines 
2106-7-8 draw the red frame around the hole. Line 2110 draws the brown 
square which represents the hole. Line 2115 draws the white square which 
represents the ball. Line 2200 begins the graphics for hole #2. Line 2300 begins 
hole #3. Line 2400 begins hole #4, and so on through hole #9 (begins at 
2900). It would be to your benefit to experiment with any of the lines (2000- 
2915) that are unclear. As with most programs, the hard part is moving the ball 
and charting its path. The ball is white, (color = 15), so look for statements 
preceded by ‘COLOR = 15’ Look at statements 3110 thru 3124. The SCRN 
function returns the number of the color of X2,Y2 and therefore tells the 
program what -color surface the ball has landed on. The SCRN function is very 
useful for detecting ‘hits’ in all sorts of action games. 
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1035 
1040 


1045 


1050 


1060 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
END 


REM 


TEA 
VTA 
MINI 
VTA 
HE C 


KHEKEKKKKKKHKHKHEKHKHES 
% & ¥ %%% 
*¥%* MINIATURE GOLF «*+* 
KH %H* 
KEEKKRKEKEKKEEKEKHEKEKEE 


1000: REM INSTS 

2000: REM SETUP 

3000: REM PLAY! 

4000: REM !END! 

***% INSTS 
T NORMAL HOME 
B i: HTAB QO: PRINT “**¥% 
ATURE GOLF #*#" 
B 3S: PRINT "WELCOME TO T 
APELLA COUNTRY CLUB, 


THIS BEAUTIFUL NINE-HOLE MIN 
IATURE GOLF COURSE IS OPEN A 


ND WAITING FOR YOU ! " 
PRINT 
PRINT "YOU SHOULD KNOW THE 


IDIOSYNCRASIES OF THE COUR 
SE BEFORE YOU BEGIN PLAY, " 
PRINT PRINT “TO PUTT THE 
BALL» YOU HAVE TO INPUT 
WHICH DIRECTION YOU WANT TO 
AIM IT. THERE ARE EIGHT 
DIRECTIONS» SHOWN BELOW. YOUR 
BALL IS ASSUMED TO BE AT * 


| 
4 


PRINT 
21 8": 
* 7": 

> 6" 
VTAB 23: 
WHEN READY 

NS$ 


PRINT “ 
PRINT " 
PRINT " 


cae 


3 
4 


INPUT “HIT RETURN 
TO CONTINUE : "3A 
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1070 


108O 


1085 
1090 


1095 
1100 


111¢@ 


1120 


1130 


1135 


114¢ 


1145 
1150 


HOME VTAB 1: HTAB 9: PRINT 
"##* MINIATURE GOLF *##": VUTAB 
0 

PRINT "THEN YOU MUST INPUT 
HOW HARD TO HIT THE BALL. T 
HE SPEED SHOULD BE SOME NUMB 
ER BETWEEN @.00@ AND 35.00, 

FOR EXAMPLE» YOUCOULD HIT TH 
E BALL A RELATIVE SPEED OF 
Seee " 

PRINT 

PRINT "IT WILL TAKE A FEW T 
RIES BEFORE YOU GET THE FEEL 

OF HOW HARD TO PUTT THE BAL 
L. | 

PRINT 

PRINT "ALSO» THERE ARE FOUR 

TYPES OF HAZARDS ONTHE COUR 
SE. YOU SHOULD BE AWARE OF 
WHATTHEY ARE AND WHAT AFFECT 

THEY HAVE ON YOU AND YOUR 

BALL. " 

VTAB 23: 
WHEN READY 
NS$ 

HOME : YVTAB i: HTAB 9: PRINT 
"#** MINIATURE GOLF ***": YTAB 
rs 

PRINT "BLOCKS: 
KE WALLS. 
UND THEM. " 

PRINT 

PRINT "YELLOW TRAPS REPRESE 
NT SAND. YOUR BALL CANNOT P 
ENETRATE THROUGH A SAND TRAP 
’ THE PENALTY FOR LANDING 
IN SAND IS ONE STROKE. " 

PRINT 

PRINT "WATER: LIKE SAND» TH 
ESE BLUE HAZARDS WILL SLO 
W AND STOP YOUR BALL. THE 
PENALTY FOR LANDING IN W 

IS ONE STROKE. "“ 


INPUT 
TO 


"HIT RETURN 
CONTINUE "9A 


THESE ARE LI 
YOU MUST PUTT ARO 


ATER 
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1155 
1160 


11790 


1180 


1190 


1195 
1200 


PRINT 
PRINT "UNEVEN SURFACES: THE 
SE ORANGE HAZARDS CAUSE TH 


E BALL TO ROLL IN @A DIRECTIO 
N WHICH IS UNPREDICTABLE. 

THERE IS NO PENALTY FOR 
HITTING THIS HAZARD, " 

VTAB 23: INPUT “PRESS RETUR 
N WHEN READY TO CONTINUE : " 
sANSS 

HOME VTAB 1: HTAB 9: PRINT 
"##* MINIATURE GOLF **x": 
2 

PRINT "YOU ARE TRYING TO SI 
NK THE BALL IN AS FEW TRIE 
S AS POSSIBLE. THE HOLE IS 
THE BROWN SQUARE. °“ 


PRINT 
PRINT "IF YOU HIT THE BALL 
TOO HARD, IT WILL JUMP OVE 


R THE HOLE AND CONTINUE ROLL 
ING.IT MAY ALSO CHANGE DIREC 
TION, SO BE SURE TO HIT THE 
BALL JUST HARD ENOUGH. “ 
VTAB 23: INPUT “HIT RETURN 
WHEN READY TO CONTINUE "SA 


NS$ 
RETURN 
REM **%* SETUP 
BELL = CHR# (7) 
DIM HA(9+5): FOR I = 1 TO Q9 
FOR J = 1 TO 3S: READ HACTI » 
J): NEXT Jol 
DATA OsOsOsOoe 
DATA 1*O910»893 
DATA O2+1#0+053 
DATA 191°#0»053 
DATA O2+O»O21+3 
DATA O+Orle123 
DATA 1+9+1#0:3 
DATA Or+l+1+0+4 
DATA O+>Orle1+3 
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VTAB 


2820 


2045 
2050 
2052 


2@oad 


DIM DI(8+2): FOR I = 1 TO 8 
READ DI(I»1),DI¢CI+2): NEAT 
DATA Qr-1l+ -is-1, -1:90 

» -Lels Osls Loels 190» 

1+-1 

GR : HOME RETURN 

COLOR= 12 

FOR I = @ TO 19 

HLIN @+39 AT I: HLIN 0:39 AT 

39 - I 
VLIN @*39 AT I: VLIN @*39 AT 
39 - I 
NEXT RETURN 
REM #*%** HOLE 1 
GOSUB 20350 
COLOR= 1 
HLIN 10:24 AT Gs: HLIN 10:24 
AT 33 
VWLIN 6°33 AT 10: VLIN 6233 AT 
24 

COLOR= 8: PLOT 17:9 

BY = 32:BxX = $§yINT (¢( RND (1) * 
11) + 12: COLOR= 15: PLOT Bx 

*BYs RETURN 

REM *** HOLE 2 

GOSUB 2050: COLOR= 1: HLIN 

19,24 AT 33: VLIN G6+33 AT 10 

©: YWLIN 16+33 AT 24: HLIN 10% 

35 AT G: HLIN 24;/35 AT 16: VLIN 

G+16 AT 35 
COLOR= 2: VLIN 18/19 AT 20: 
WLIN 17921 AT 21: VLIN 172 

3 AT 22: VLIN 16726 AT 23 
COLOR= 8: PLOT 32:11 

BY = 32:BX = $.%INT ( RND (1) * 

11) + 12: COLOR= 15: PLOT BA 

+BY: RETURN 

REM #*#** HOLE 3 

GOSUB 2050: COLOR= i: HLIN 

74:35 AT Gs: HLIN 10224 AT 15 
HLIN 24/35 AT 24: HLIN 10, 


24 AT 33: VLIN 6215 AT 24: VLIN 
15,33 AT 10: VLIN 24:33 AT @ 
4: VLIN G6+24 AT 35 
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£307 COLOR= 13: PLOT 30,23: VLIN 
22923 AT 31: VLIN 20:23 AT 3 
2: YLIN 19%23 AT 33: VLIN 17 


seg AT 34 
2£31@ COLOR= 8: PLOT 32,9 
2315 BY = 32:BxX = $§xINT ( RND (1) #* 


11) + 12: COLOR= 15: PLOT BX 
»BY: RETURN 
“400 REM **%* HOLE @ 
£40353 GOSUB 2050: COLOR= 1: HLIN 
Srood AT Gs HLIN 15°25 AT 15: 
HLIN 25735 AT 24: HLIN 5°15 
AT 33: VWLIN G»33 AT Ss: VLIN 
13°33 AT 153: VLIN 15+24 AT 2 
2: YLIN G6»24 AT 35 
£407 COLOR= 13: PLOT 15+7: VLIN 
7*8 AT 16: VLIN 7+9 AT 17: VLIN 
799 AT 18: VLIN 7+8 AT 19: PLOT 
207 
£408 COLOR= 2: PLOT 15514: VLIN 
13:14 AT 16: VLIN 13°14 AT 1 
7: YWLIN 13,14 AT 18: YLIN 13 
714 AT 19: VLIN 13514 AT 2@: 
WLIN 12°14 AT 21: VLIN 1151 


4 AT 22 
2410 COLOR= 8: PLOT 32:21 
2415 BY = 32:BX = INT ( RND (1) # 


9) + G: COLOR= 15: PLOT BxX>B 
Y: RETURN 

27500 REM **%* HOLE 5 

2905 GOSUB 2050: COLOR= i: HLIN 
19+24 AT G: HLIN 10:24 AT 33 

VLIN G6+33 AT 10: VLIN 62933 

AT 24: HLIN 13-21 AT 17: VLIN 
1217 AT 13: VLIN 12,17 AT 2 
1 

2910 COLOR= 8: PLOT 17:9 

2915 BY = 32:BX = INT ( RND (1) * 
11) + 12: COLOR= 15: PLOT BX 
»>BY: RETURN 

2600 REM **%* HOLE 6G 
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2707 


2/708 


2/710 


2/15 


2800 
2805 


GOSUB 2050: COLOR= 1: HLIN 
10+24 AT 33: VLIN G:33 AT 10 
VLIN 16%33 AT 24: HLIN 10% 

35 AT G: HLIN 24;35 AT 16: VLIN 
G+16 AT 35 

HLIN 26+29 AT 9: HLIN 26729 
AT 13: YLIN 9513 AT 2G 
COLOR= 9: YLIN 13°18 AT 21: 
VLIN 13918 AT 22: VLIN 1351 
8B AT 23: VLIN 13°15 AT 24: VLIN 
14°15 AT 25: PLOT 26:15 
COLOR= 8: PLOT 32,511 

BY = 32:BX = INT ( RND (1) * 
11) + 12: COLOR= 15: PLOT Bx 
»BY: RETURN 

REM %*%** HOLE 7 

GOSUB 2050: COLOR= 1: HLIN 
2915 AT Gs HLIN 15°35 AT le: 
HLIN 3S+25 AT 24: HLIN 253735 
AT 33: VWLIN G+24 AT 3S: VLIN 
GelZ2 AT 15: VLIN 24,533 AT 25 

VLIN 1233 AT 395 

COLOR= 2: VLIN 1623 AT Gs: VLIN 
17+23 AT 7: VLIN 18+23 AT 8: 
VLIN 18923 AT 9: VLIN 20223 
AT 10: PLOT 1123 

COLOR= 9: YLIN 13°28 AT 31: 
VLIN 13°28 AT 32: VLIN 132 
8 AT 33: VLIN 13°28 AT 34: HLIN 
29930 AT 13: HLIN 25:30 AT 1 
4: HLIN 25930 AT 15 

COLOR= 8: PLOT 10:59 
BY = 32:BxX = INT (¢ RND (1) * 
7) + 26: COLOR= 15: PLOT Bx» 
BY: RETURN 

REM +**% HOLE 8 

GOSUB 205@: COLOR= 1: HLIN 
Sedo AT Get HLIN 15°25 AT 15: 
HLIN S+15 AT 24: HLIN 25°35 
AT 33: VLIN G24 AT Ss: VLIN 
i5+24 AT 15: VWLIN 15533 AT 2 
3: VYVLIN G33 AT 35 
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2807 


2808 


£8190 
2815 


2900 
£905 


2907 


2908 


2910 
2915 


3000 
3801 
3002 
3810 
3020 


3030 


3031 


3032 


COLOR= 93: VYVLIN 7,58 AT 25: 
799 AT £6: VLIN 7o11 AT 27: 
7+ll AT 28: VYLIN 7512 AT 29: 
VLIN 7sele AT 30: VLIN 7517 AT 
Si: WLIN 7+18 AT 32: VWLIN 7+» 
19 AT 33: VLIN 7+20 AT 34 
COLOR= 13: VLIN 11,513 AT 8: 
VLIN 14:15 AT 9G: VLIN 9,15 AT 
i@s YLIN 9»1G AT Ill: VLIN Gy» 
iG AT 12 
COLOR= 8: 
BY = 
7) 


VLIN 
VLIN 


PLOT 10:21 
32:BxX = INT ¢( RND (1) * 
+ 26: COLOR= 15: PLOT BX» 
BY: RETURN 

REM *#** HOLE 9 

GOSUB 2050: COLOR= 1: 
2930 AT G: HLIN S225 AT 18: 
29739 AT 33: VYLIN G6»18 AT S: 
WVLIN 18°33 AT 25: VLIN 6,33 
AT 395 

HLIN 811 AT Q: 
11 

COLOR= 9: HLIN 25:34 AT 7: 
2/7*34 AT 8: HLIN 29934 AT Qs: 
HLIN 30,34 AT 10: HLIN 31:53 
4 AT iil 
COLOR= 8: 
BY = 32:BxX = INT (¢ 
7) + 26: COLOR= 15: 
BY: RETURN 


HLIN 
HLIN 


VLIN 9515 AT 


HLIN 


PLOT 8,12 
RND (1) # 
PLOT Bas 


REM 

FOR HO = 1 TO 9:BC = 12 

ON HO GOSUB 2100 ,2200 +2300, 
2400 +2500 +2600 +2700 +2800 5290 
Q 


%#*#*% PLAY 


HOME : PRINT “HOLE NUMBER: 
"HO" PAR: "HA(CHO;+3)" SCORE: 
"SOC 

PRINT "TRAPS: "ss: IF HACHO>» 
1) THEN PRINT "WATER "5 

IF HACHO+2) THEN PRINT "SA 
ND "5 
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3033 IF HA(HO+3) THEN PRINT "UN 
EVEN "3 
3034 IF HA(HO+4) THEN PRINT "BL 
OCKS "3 
3035 VTAB 23: HTAB i: CALL - 95 
8B: INPUT "DIRECTION (1-8): " 
IDIR 
3040 IF DIR < 1 OR DIR > 8 OR DI 
R >» INT (DIR) THEN VTAB 
23: CALL - 958: PRINT "THE 
DIRECTION IS FROM 1 TO B «ee, 
": FOR PA = i TO 1500: NEXT 
PA: GOTO 3035 
3045 VTAB 23: CALL - 958: INPUT 
"SPEED (0-5): "#SP 
3050 IF SP < @ OR SP > 5 THEN VTAB 
23: CALL - 958: PRINT "THE 
SPEED IS FROM @ TO 5 ...": FOR 
PA = 1 TO 1500: NEXT PA: GOTO 
3045 
3055 UF = @: REM CLEAR UNEVEN FL 
AG 
3056 TF = @: REM CLEAR TRAP FLAG 
3100 X2 = BX + DI(DI+1):¥2 = BY + 
DI(DI +2) 
3110 IF SCRN( X2+¥2) = 12 THEN 
COLOR= BC: PLOT BX+BY: COLOR= 
15: PLOT X2sY2:BX = X2:BY = 
Y2:BC = 12: GOTO 3900 
3120 IF SCRN( X2+Y¥2) = @1 THEN 
3200 (i 
3121 IF SCRN( X2s¥2) = @2 THEN ey 
3300 \ 
3122 IF SCRN( XZ2+Y¥2) = 13 THEN ; 
3400 
3123 IF SCRN( X2+¥2) = @9 THEN 
3500 
3124 IF SCRN( X2+YZ) = 08 THEN 
3600 ~ 
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IF DI = 1 OR DI = 3 THEN DI 


DI + 4: GOTO 31900 


IF DI = 7 OR DI = 3 THEN DI 


DI - 4: GOTO 31900 


ON DI / 2 GOTO 3220,32740+32 
60,3280 

IF SCRN( X2 + 1+Y2) = 
SCRN( X2+Y2 + 1) = 1 THEN D 


IF SCRNC AS + 1972) 


IF SCRNC A2s¥2 + 1) 


= 6: GOTO 3100 


= 4: GOTO 3100 


= 8: GOTO 3100 
= 6: GOTO 3100 


IF SCRNC AZ + 1+¥2) = 
SCRNC A2*¥Y2 - 1) = 1 THEN D 


IF SCRNC AZ + 1972) 


DI 


IF SCRNC Ae2s¥2 - 1) 


DI 
DI 


= 8: GOTO 31900 


= 2: GOTO 3100 


= 6: GOTO 3100 
= 8: GOTO 3100 


IF SCRNC AZ - 1s¥2) = 
SCRN( A2s¥2 - 1) = 1 THEN D 


I 


IF SCRN(C xA2 - 19¥2) 


= 2: GOTO 3100 


DI = 8: GOTO 3100 

IF SCRNC A2+s¥2 - 1) = 
DI = 4: GOTO 31900 
DI = 2: GOTO 3100 


IF SCRNC K2 - 1*¥2) = 
SCRN( K2+Y¥2 + 1) = 1 THEN D 


I 


IF SCRNC x2 - 19¥2) 


DI 


IF SCRNC Kes¥2 + 1) 


DI 
DI 


= 4: GOTO 3100 


= G6: GOTO 3100 


= 2: GOTO 3102 
= 4: GOTO 3100 


IF TF THEN 33190 


TF 


= 3:5C = SC + 1: REM 


P FLAG 

COLOR= BC: PLOT BxX+sBYs: 
13: PLOT A2sY2:Bu = K2:BY = 
Y2:BC = 2 


i AND 


1 THEN 


1 THEN 


1 AND 


1 THEN 


1 THEN 


1 AND 


1 THEN 


1 THEN 


1 AND 


1 THEN 


1 THEN 


TRA 


COLOR= 
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3600 


3602 
3604 
3685 
3606 
3610 
3900 
3902 
3905 
3910 
39a 
A000 


4001 
Adaz 


GOTO 3900 

IF TF THEN 34192 
TF = 3:5C = SC + 1: REM TRA 
P FLAG 

COLOR= BC: PLOT BA>BY: COLORS= 
iS: PLOT K2s¥2:Bur = K2:BY = 
Ye2:BC = 13 

GOTO 3900 

IF UF THEN 3520 
UF = 1: REM UNEVEN FLAG» HA 


VE WE ROLLED BALL OFF COURSE 
YET nan ¢ 4 


DI = DI + INT (¢( RND (1) * 2 

) * 2 - 1 

IF DI = @ THEN DI = 8 

IF DI = 9 THEN DI = 1 

COLOR= BC: PLOT BA>BY: COLORS= 
13: PLOT K2sY¥2:Bur = K2:BY = 
Y2:BC = 9: GOTO 3900 

COLOR= 12: PLOT BA>BY: COLORS= 
iS: PLOT X2:¥2: COLOR= 8: PLOT 
Aes 
DI = DI + INT (¢ RND (1) * 2 

) * 2 - 1 

IF DI = @ THEN DI = 8 
SP = SP - .4: IF SP => @ THEN 
Ke = K2 + DICDI»1):¥2 = Ye + 
DI(DI +2): GOTO 3110 


IF DI = 9 THEN DI = 1 
PRINT BELL#BELL#BELL$:SC = 
SC + 1: GOTO 3990 
KX = PEEK ( - 16336) - 
( - 16336) 
IF TF = @ THEN TF = 
IF TF = @ THEN 3910 
SP = SP - IF SP 
31080 
SC = $C + 1: GOTO 3030 
NEXT HO: RETURN 


PEEK 
TF - 1: 


> @ THEN 


“" 
es 


REM **%* END 


215 


4010 


A020 


Ag?? 
AG25 


4030 


4990 


TEXT : HOME : YTAB 3: HTAB 
9: PRINT "*#** MINIATURE GOLF 
¥*¥*2": WTAB 7 

PRINT BELL#BELL#BELL$"THE G 
AME IS QVER !1I!" 

PRINT 

PRINT "ON THE PAR 27 COURSE 
>» YOU SHOT “: PRINT "A ROUND 
OF "SC". THAT IS AN": PRINT 
"AYERAGE OF "SC / 9" SHOTS P 
ER HOLE. " 

VTAB 22: PRINT "HOPE YOU EN 
JOYED THE GAME! " 

RETURN 


tae 
Cer 


RAY re 
iy AW 


=A ie oA 


e 
WAT HY 


~) 
va ~_— 


—_- _ 

ee 
a eS a [lEZ— 
AN 


peed Mes Nw AB AW 
\ Ne 


re \le—— 
z: oN VN 
ny: ; 
NS 8 al i aa 
ae Mile ze 


Ns fe 
L-= ——, NE and KE E> 


Vs: ' hes 
\ ea Fale *. 
AZ SQ a oe “he Uy Uji 
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This is a one-man paddle game. The object is to shoot the moving targets. 
Different colored targets are worth different point scores. For the most part, 
this game is a measure of timing, but there is also a little luck involved. If you 
read through MUBBLE CHASE and understood it all, then these short graphic 
hints and explanations may seem mundane. First, load the program. Type: 
LIST-2030. In terms of drawing the original game setup, lines 2020 through 
2024 do the majority of the work. 2020 instructs the computer to switch from 
the text mode into the GRaphics (color) mode. 2021 starts a loop consisting of 
ten individual loops (passes). 2022 will change the color each time I changes. 
2023 draws the lines that will comprise the launching pad (a collection of ten 
lines). To get a better idea of line 2021, type: 2021 FOR I = 1 TO 11 STEP 2. 
Check line 3547. You will note that the first of the two instructions sets the 
color to 15 (white). Since the missle that you launch is the only all-white figure 
you see, it follows that SX,SY are the missile’s X,Y coordinates. 
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10 REM KEKE HEKHEKKRKHEKEKEES 

ii REM %x**%# H%&% 

2 REM *** MOVING TARGET **+* 

13 REM *** HX % 

14 REM KX KKK KEKE EKRKEKHEKHESE 

i5 6REM 

16. REM 

20 GOSUB 1000: REM INSTS 

30 GOSUB 2000: REM SETUP 

40 GOSUB 3000: REM PLAY! 

50 GOSUB 4000: REM !END! 

60 END 

1000 : 

1001 REM *** INSTS 

1@g2 : 

i9@i®@ TEXT NORMAL HOME 

1020 YVTAB 3: HTAB 10: PRINT "*x#% 
MOVING TARGET ***" 

1030 VTAB 7: PRINT "IN THIS GAME 
» YOU CONTROL A MISSLE‘’S 
LAUNCH SITE. THE LAUNCHER I 
S CONTROLLEDBY PADDLE @.. 

1040 PRINT : PRINT "PRESSING THE 

BUTTON ON THE PADDLE WILL 
RELEASE A ROCKET. TRY TO HI 
T ONE OF THETHREE MOVING TAR 
GETS ABOVE YOU." 

1050 PRINT PRINT "DIFFERENT CO 
LORS ARE WORTH DIFFERENT 
AMOUNTS OF POINTS. SHOOT FOR 

THE BEST SCORE," 

10G6@ YVTAB 23: INPUT “HIT RETURN 
WHEN READY TO CONTINUE "SA 
NS$ 

19908 RETURN 

2000 : 

2001 REM **%* SETUP 

2002 : 

2010 DIM TA(3:4) 

2015 FOR I = 1 TO 3:TACI+1) = 
( RND (1) * 37)!:TAC(I+2) = 
( RND (1) * (G4 + (I # 2))) + 
1:TA(I+@) = INT ( RND (1) * 
2) * 2 - 1 
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INT 
INT 


TACI193) = O:TACI+4) = INT ( 
RND (1) * 20) + 1: NEXT 
GR 
FOR I = 1 TO 10 
COLOR= I 
HLIN (I - 1) * 4s(1I - 1) 
4 +3 AT 39 
NEXT 
HOME : PRINT "10 20 30 
40 50 GO 70 88 90 100" 
RETURN 
REM #** PLAY 
REM 
GOSUB 3600: REM MOVE TARGE 
TS 
NM = NM + i: IF NM < 200 THEN 
3020 
P = INT ( PDL (@) / 6.5): IF 
PP = P THEN 3520 
COLOR= @: VLIN 37/38 AT PP: 
COLOR= 12: VLIN 37/38 AT P: 
PP = P 
IF F THEN 3540 
IF PEEK ( - 16287) 128 THEN 
RETURN 
F = 1:SX = PP:SY = 36 
COLOR= @: PLOT SX+SY:SY = S 
Y - 
IF PEEK ( - 16287) 127 THEN 
3530 
IF SY  @ THEN F = @: RETURN 
IF SCRN( SX+SY) > @ THEN 
3551 
COLOR= 15: PLOT SX+SY: RETURN 
Z= (SY 22) + (SY 12) 
(SY > 2) 
PT = PT + SCRN( SX+SY) * (4 
- Z) 
F = @:TA(Z+3) = O:TA(Z+4) 
INT ( RND (1) * 20) + 1 
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3621 


3622 


3625 


3630 
4000 
40a1 
Ado0z 
4010 


4990 


TA(Z+@) = INT ( RND (1) * @ 
) * 2 - 1:TA(Z+2) = INT ¢ RND 
(1) * (4 + (TI * 2))) + 1 
XX = PEEK ( - 16336) + PEEK 
( - 16336) - PEEK ( - 16336 
) + PEEK ( - 16336) 

HOME : PRINT : PRINT "eee ¥ 
OUR SCORE IS "PT" 333" 

RETURN 

FOR I = 1 TO 3 

GOSUB 350¢ 

COLOR= @: FOR J = I * 10 - 

5 TO I * 10 - 3: HLIN TACT +1 
Y»TACT +1) + 2 AT Jt NEXT 
TACI+1) = TACIT +1) + TACT +@) 
TACI+3) = TACIT +3) + 1: IF TA 
(1»3) = TACIT +4) THEN TACT +3) 


= @:TA(I +4) = INT ¢( RND (1 
) * 20) + 1:TAC(T»@) = INT ¢ 

RND (1) * 2) *® 2 - 1U:TACI +2 
) = INT ¢( RND (1) * (4 + (CT 

* 2))) + 1 

IF TACT »1) @ THEN TACT +1) 

= 36 


IF TA(I»#1) 3G THEN TACT #1 
) = O 

COLOR= TA(I+2): FOR J = I * 
id@-5 TO I * 1@ - 3: HLIN T 
ACIs1)sTACI+1) + 2 AT Js NEAT 


NEXT I: RETURN 


REM *** END 


HOME : PRINT "THE GAME IS QO 


VER §'t":s PRINT "YOUR FINAL 
SCORE IS "PT 
RETURN 
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This one-man paddle game is a test of dexterity. The challenge is to maneuver 
the paddle so that the flying points do not collide with you. To be sure, there 
is some luck involved. There is an abundance of easy to understand GRaphics 
in this program, so it is time to begin looking at them. Line 2010 draws a white 
perimeter around the game board (field of play). To better understand the 
function of 3040 and 3041, type: 3040 COLOR=2. When you run the program, 
all of the points will be blue (COLOR = 2). Line 3041 draws the points at their 
new X,Y coordinates (BP(K,1),BP(K,2)). Back at line 3020, the old X,Y 
coordinates of each point are blacked out (COLOR= 0). If you do not perceive 
the significance of. this line, type: 3020 and return. Now when you run the 
program, the path of each point will be seen. 
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1D REM KEKKEKHHHRHHEKKHEKHEKE 

i1 REM **%# % & % 

if REM *#** POINT ATTACK **+* 

13 REM +*** x % 

14 REM KEKE KHKEKKEKRKKHKERHEE 

iS REM 

iG REM 

“0 GOSUB 1000: REM INSTS 

30 GOSUB 2000: REM SETUP 

40 GOSUB 3000: REM PLAY! 

20 GOSUB 4000: REM !END! 

60 END 

igaa : 

1001 REM *#%* INSTS 

1g@2 es: 

1010 TEXT NORMAL : HOME 

1020 YVTAB 3: HTAB 10: PRINT "*¥% 

POINT ATTACK **#" 
1030 VTAB 7: PRINT "IN THIS GAME 
YOU WILL CONTROL THE MOVE- 
MENT OF A PADDLE IN THE MIDD 
LE OF THE SCREEN BY MOVING 
PADDLE @,." 

1040 PRINT : PRINT "THERE WILL B 
E A FLYING POINT THAT WILL 
BOUNCE AROUND ON THE WALLS. 

THE POINT WILL TRY TO HIT 
YOU, BUT DON’T LET IT." 

1050 PRINT : PRINT "AFTER AWHILE 
» ANOTHER POINT WILL BE 
ADDED TO THE FIELD OF PLAY» 
AND YOUR PADDLE WILL GROW 

LARGER. AVOID BEING HIT 
FOR AS LONG AS YOU CAN." 

1060 VTAB 23: INPUT "HIT RETURN 
WHEN READY TO CONTINUE "SA 
NS$ 

1990 RETURN 

2000 : 

2001 REM **%* SETUP 

2002 : 

£010 GR : COLOR= 15: HLIN @,39 AT 


@: HLIN @+39 AT 39: 
9 AT Os 


VLIN O93 
VYLIN @s39 AT 39 
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2020 
-030 


2040 
£105 


=11@ 


2990 
3800 
3001 
3802 
3010 


3815 


3016 
3020 


3025 


3030 


3031 


3835 


3840 


DIM BP(10 +2) »BD(10%2) 
FOR IT = 1 TO 10:BP(I;+1) = 2 

>BP(I»2) = INT ¢( RND (1) * 

37) + 2:BD(Is1) = 1:BD(1I+2) = 
INT ¢( RND (1) *# 2) * 2 - 1: 
NEAT 

A = 20 
POKE 768173: POKE 769;48: POKE 

7705192: POKE 771+13G: POKE 

772:208: POKE 773,44: POKE 77 

4,198: POKE 775,i: POKE 776» 

240 
POKE 7778: POKE 778;202: POKE 

779+208: POKE 780;24G: POKE 

781+16GG: POKE 782:0: POKE 78 

3°76: POKE 784+@: POKE 785:3 

POKE 786,96 
RETURN 


REM *#%* PLAY 


FOR H = 1 TO 30:X = X - 1: HOME 
PRINT : PRINT "<<< SCORE = 
=> "H" >>>": FOR J = 1 70 2 


I = H: IF I + 10 THEN I = 10 


FOR K = 1 TO I 

COLOR= @: PLOT BP(K>1) »+BP(K 
+2) 
BP(K +1) BP(K+1i) + BD(Kol1): 
BPCK +2) BP(K»2) + BDC(K +2) 
IF BP(K+1) = 1 OR BP(Kol) = 
38 THEN BO(K+1) = - BD(Kel) 
© POKE @» INT ¢( RND (1) * 25 
G): POKE 1/10: CALL 768 

IF BP(K»2) = 1 OR BP(K»2) = 
38 THEN BDO(K +2) = - BOCK 22) 
- POKE @» INT ( RND (1) * 25 
G6): POKE 1°10: CALL 768 

IF SCRNC( BP(K>1) »sBP(K»2)) = 
iS THEN RETURN 

COLOR= K 
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3041 
3845 
3030 


PLOT BP(Ks1) »BP(K #2) 
IF X 1 THEN X = 1 
COLOR= @: VLIN Xx 

20 


+ H + 2 AT 

PDL 
xX + 1: 
xX - 1 
x * 3B - 

(H + @2) 
1 THEN X = 1 
iS: VLIN XxX 


wy PFN 


(QO): IF P 
GOTO 3056 


128 THEN 


| ees | 
uw i u 


(H + 2) THEN X = 
38 - 
IF X 
COLOR= 
AT 20 
POKE @22: 
8 

NEXT KeJeH 
RETURN 


+H + ? 


POKE 1,1: CALL 76 


REM #*#% END 


HOME : PRINT “THE GAME IS 0 
VER Itt" 

PRINT "“YOU’RE SCORE IS 
CONGRATULATIONS !1!1" 
RETURN 


mee ; 
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WILL Uperrrririi Lik 4 


4 


—w if 
SS 


Vaeease 
oe 


ZAP 


~~ 


In this game you try to avoid being captured by the killer robots. Actually, 
escaping from the robot's relentless pursuit is most difficult. Because the 
pursuit is entirely pre-determined, it might be a good idea to chart your course 
before you make your first move. Starting at line 2100, the text mode is 
completed and the graphics mode is begun. Remember, once you are in the 
graphics mode, the HOME command only clears the bottom four rows,which 
are reserved for text. Note that line 2090 sets all values of FI%(I,0) equal to 
two. Line 2095 does the same thing to FI(0,1). Now, when line 2110 is 
executed, a deep blue perimeter is drawn (COLOR= FI(L,J). Line 2075 sets 
FI(OX,OY) to 15. Line 3025 sets the color to 15 (white). Since you are 
represented by the white square, it would be understandable for you to 
experiment with these two instructions to see what and how they function. 


22) 


1040 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
END 


REM 


TEX 
WTA 
ROB 
VTA 
SE » 
HAS 


HEKEKKKKKHKKHKKKKKKKEKE 


HH HEX 
**#* ROBOT CHASE *** 
HE HH 


HREHHEKHEKHEKKKHKKHKKKKHEE 


1000: REM INSTS 
2000: REM SETUP 
3000: REM PLAY! 
4000: REM !END! 


*#** INSTS 


T : NORMAL : HOME 

B 2: HTAB 10: PRINT "*** 
OT CHASE ***" 

B S: PRINT "IN ROBOT CHA 
YOU ARE AN EXPLORER WHO 

LANDED HIS SPACESHIP ON 


A HOSTILE PLANET." 


PRI 


NT =: PRINT "SEVERAL PROT 


ECTOR ROBOTS ARE TRYING TO 
CAPTUE YOU. IF YOU CAN REAC 


H A BASE» YOU WILL BE SAFE 

BEHIND ITS PROTECTIVE FORC 
E FIELD." 

PRINT : PRINT “HERE’S HOW T 
HINGS WORK: ": PRINT =: PRINT 
" BLUE - AN EXPLOSIVE FEN 
CE (BAD!)" 

PRINT " WHITE - YOU" 

PRINT " GREEN - ATTACKING 


ROBOT (BAD!)" 


PRI 


NT " ORANGE- PROTECTIVY 


E BASE (GOOD! !!)" 


VTAB 23: INPUT "HIT RETN 
WHEN READY TO CONTINUE =: "sA 
NS$ 

HOME : VTAB 11 

PRINT " 3 2 1" 

PRINT " I/ TH 
IS IS YOUR CHOICE" 
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2025 
2030 


2039 
2040 


2@45 
2030 


2055 
2068 
2070 


2075 
2090 


PRINT " 4-+-§8 OF 

MOVEMENT" 

PRINT " /I] TH 
ROUGH THE MAZE" 

PRINT " > 6 7" 

VTAB 23: INPUT “HIT RETURN 
WHEN READY TO CONTINUE : "$A 
NS$ 

RETURN 

REM *** SETUP 

DIM FI4(21+11) 

DEF FN R(X) = §.INT (¢ RND ( 
1) * KX) + 1 
NR = 4 + FN R(S5S): DIM ROACY 
92) 

NO = INT ((NR - 4) / 2) + 1 

FOR I = 1 TO NR 
RX = FN R(20):ERY = FN R10 
) 

IF FIZCRX>RY) THEN 2030 
FIZCRXoRY) = 42ROZCI»1) = RX 
sROZ(I +2) = RY: NEXT I 

FOR I = 1 TO NO 
OX = FN R(20):0Y = FN R(10 
) 

IF FIZ(OX»OY) THEN 2050 
FIZ(OX,OY) = OY: NEXT I 
YX = FN R(20) YY = FN R10 
) 

FIZCYXs¥¥) = 15 

FOR I = @ TO 21:FI4(1+0) = 
2rFI“Z(I 211) = 2: NEXT I 

FOR I = @ TO 11:FIZ(@,51I) = 
2:FI“Z(21+1) = 2: NEXT I 

GR HOME 

FOR I = @ TO 21: FOR J = @ 
11: COLOR= FI4(1I+J): PLOT I 
9,J + 14: NEXT Jol 
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2200 


£990 
3800 
3001 
3802 
3010 


3060 


3065 


DIM DI(8+s2): FOR I = 1 
READ DI(I+1) ,+DI(I+2): 
I: DATA 12-19Os-15-1,-1 

OMrs-151+Orlrslrl+1 +d 
RETURN 

REM **%* PLAY 
HOME PRINT 
"G4 + 8": PRINT 
HICH DIRECTION 
(7) 5: GET ANS$: 
NS#): IF ANS 
3010 
HOME 
Ke = YR 
DI(AN +2) 
COLOR= @: 
14: COLOR= 
e + 14 

IF FI¢CKE2 
@: RETURN 
IF FIACK2 
2: RETURN 
IF FI“ZCXK2 
i: RETURN REM BASE 
FIZCYK*¥Y) = O8YX = K22¥ 
Y2rFIACYRsYY) = 15 

FOR I = 1 TO NR 

IF FN R(4) = 1 THEN 
R(3) - 2:¥2 = FN RCO) - 
3035 

© = SGN (YA - ROAZCT +1) 
= SGN (YY - ROZCI+2)) 
cf = KE + ROACI+1):2Y2 = 
RO“ZCIT +2): IF FIAZCK2 s¥2) 
FIZ(K2 +¥2) = 4 OR 
= 9 THEN 3045 
COLOR= @: PLOT ROZCI +1) 
sROZCTI +2) + 14: COLOR= 
‘2 + 9O*Y¥Y2 + 14 
IF FIACK2 » 
@: RETURN : 


"gy 9 4". 
"5 6 7 
===> "5 €C 
ANS = WA 
1 OR ANS 


Pp 


+ DICAN»s1):¥2 = 


PLOT YA 


15: PLOT X2 + 


” 
roa 


x¥2) = 
REM 
s¥2) = 
REM 


*¥2) = 


FENCE 


ROBOT 


69 
\e 


REM HUMAN 


y y¥ 


THEN WL 


4 THEN WL 


§ THEN WL 


qs: 


TO 8 
NEXT 
s-lys 


RINT 

W 
HR 
L ¢A 


8 THEN 


+ 


+ DsV¥¥ + 


9, 


Y = 


y3¥2 


Ye + 


FIZCK2Z s¥2) 


+ 9 


f2) = 15 THEN WL 
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PLOT 


3070 FIZ(RO“ACIT +1) sROZ(I92)) = Os 
= X2:ROZ(IT +2) = Yes 
IZCROZCIT +1) sROZACT 22)) = 


3875 
3990 
ABO 
4001 
Add 
4010 


AQdi1 


A4@iz 


4013 


4990 


O“CT +1) 


NEAT Is 
RETURN 


GOTO 3012¢ 


REM *** END 


HOME PRINT 
VER !bt" 
IF WL THEN 


H!)" 


"THE GAME IS O 


PRINT "YOU‘VE 
EATEN THE KILLER 


IF NOT WL THEN 


KILLER 
SORRY. +) 
PRINT 

(7) 
RETURN 


CHRS 


(7) 5 


ROBOTS (YEA 


B 


PRINT "THE 
ROBOTS GOT YOU !!! 


CHR (7)5 
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( 


CHR 


Ui Di 


In this exciting game, you try to discern the combination to a safe. Your ears, 
as well as your eyes, are important tools. The object of the game is to open an 
enemy agent's safe before the thirty second delayed explosion kills you. Once 
you grasp all of the rules, you will discover that being a safe cracker is not too 
easy! Armed with a sophisticated safe cracking device, you try to detect the 
numbers in the combination one by one. Each time you pinpoint a number, 
you turn the paddle the other way until you pinpoint the next number in the 
combination. When you have identified the entire three-number combination, 
then the safe will open, and the explosion will be postponed. The three 
numbers in the combination are set by lines 2010, 2011, and 2012. You will note 
the word ‘INVERSE’ in line 2030. NORMAL sets the print mode to white 
letters on a black background. INVERSE reverses this so that you get black 
letter on a white background. Lines 2030 and 2035 draw the outline of the safe 
while in the INVERSE mode. That is how a white outine is drawn around the 
safe. 


Our resident critic did not think that 
<<< BOOM>>> 


fulfilled the promise of a “terrible explosion”. As a programmer trainee this is 
just the sort of routine you can manufacture to match your own expectations. 
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10 REM KHKKKKEEKHKKHKHKHHRKKES 


11 REM *#+# HH % 
if REM *** SAFE CRACKER «x 
13 REM **+% HH 
14 REM KH KRHKKERHERHEHRKEKES 
iS REM 
i6 REM 


2£@ GOSUB 1000: REM INSTS 

30@ GOSUB 2000: REM SETUP 

40 GOSUB 3000: REM PLAY! 

22 GOSUB 4000: REM !END! 

60 END 

1000 : 

i901 REM *** INSTS 

1002 : 

1010 TEAT =: NORMAL : HOME 

1020 YVWTAB 3: HTAB 10: PRINT "*«# 

SAFE CRACKER ***#" 

1030 VTAB 7: PRINT "YOU ARE A GO 
VERNMENT SPY» AND YOU MUST 
RETRIEYE SOME CLASSIFIED DOC 
UMENTS WHICHWERE STOLEN BY F 
OREIGN AGENTS." 

1040 PRINT =: PRINT "THE DOCUMENT 
S ARE KEPT IN A VYAULT WHICH 
YOU MUST OPEN." 

105@ PRINT : PRINT "YOU HAVE BEE 
N GIVEN A SOPHISTICATED SAFE 
CRACKING DEVICE. WHENEVER T 
HE TUMBLERS IN A SAFE CLICK 
INTO PLACE» THE DEVICE WILL 

ALSO MAKE A CLICKING SOUND. 
IF YOUEITHER DIRECTLY HIT 
OR PASS BY A NUMBER" 

1@32 PRINT “IN THE COMBINATION, 
THEN THE DEVICE WILL EMIT A 
CLICK," 

1055 PRINT : PRINT 

1960 INPUT “HIT RETURN WHEN READ 
Y TO CONTINUE =: “SANS$ 

1070 HOME : VTAB 3: HTAB 10: PRINT 
"#*#% SAFE CRACKER *#*": VYTAB 
5 


232 


1080 


109@ 


1095 


1100 


1110 


1120 


1130 


199@ 
2-000 
2001 
2002 
2010 


2011 


PRINT "START BY TURNING PAD 
DLE @ ALL THE WAY TOTHE LEFT 
(VALUE OF @). THEN MOVE T 
HE PADDLE TO THE RIGHT UNTI 
L YOU GET THE FIRST NUMBER 


iT 
+ 


PRINT : PRINT "WHEN YOU DIS 
COVER THE FIRST NUMBER>»s THEN 
TURN TO THE LEFT UNTIL YOU G 
ET THE 2ND NUMBER. FINALLY 
» TURN THE DIAL BACK TO THE 
RIGHT FOR THE THIRD AND LAST 

NUMBER, " 

PRINT : PRINT "IF YOU GO PA 
ST A NUMBER>s THEN YOU MUST 
TURN THE DIAL ALL THE WAY TO 

THE LEFT+ AND START OVER," 


VTAB 23: INPUT "HIT RETURN 
WHEN READY TO CONTINUE =: "3A 
NS$ 


HOME : VTAB 3: HTAB 10: PRINT 


"*##* SAFE CRACKER *#**": YTAB 
7 

PRINT "OH>s BY THE WAY» ONCE 

YOU HAVE TOUCHED THE SAFE 
* YOU WILL HAVE THIRTY SECON 
DS TO OPEN IT. WHEN THIRTY 

SECONDS HAS PASSED» THE 
SAFETY MECHANISM WILL CAUSE 
A TERRIBLE EXPLOSION." 

VTAB 23: INPUT “HIT RETURN 
WHEN READY TO CONTINUE =: "3A 
NS$ 

RETURN 


REM #*%** SETUP 


Ni = INT ( RND (1) * 68) + 
1 

N2 = INT (¢( RND (1) * GO) + 
1: IF Ne = Ni THEN 2010 
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MN). 


2039 


2040 
2045 
2990 
3000 
3001 
3OGz 
3010 


3015 


3820 
3022 


3023 
3024 


3025 


3030 


3035 
3040 
3041 


N3 = INT ¢ RND 
1: IF NOS = N2 THEN 20190 
HOME VTAB 3: HTAB 1@: PRINT 
"*#*x* SAFE CRACKER ***" 
INVERSE VTAB S: HTAB id: 
" ":s UTAB 15: 
14: PRINT " " 
FOR I = 6 TO 14: VTAB I: 
14: PRINT " “3s: HTAB 25: 
mM NORMAL 
TI = 1:D = 1 
We = 19 
RETURN 


(1) * GO) + 


PRINT 
HTAB 


HTAB 
PRINT 


— 
S 
i. «s 
f-J 
| 


REM *#%* PLAY 


TI = TI - i:T = INT 
@): VTAB 17: HTAB 15: 
"TIME : "48 
22: PRINT T + 1 

IF fT + 1 = @ THEN WL = @: 


(TI / 1 
PRINT 
VTAB 17: HTAB 


RETURN 
P = INT (¢ PDL (@) 


VTAB 7: HTAB 19: 
3: YTAB 7s 


/ 4.25) 
PRINT " * 
HTAB 19: PRINT P3 


GOSUB 3700 

IF P =» @ AND F THEN VTAB Q 

HTAB 12: PRINT "TURN DIAL": 
VTAB 1@: HTAB 1: PRINT "TO 
THE LEFT": GOTO 301@ 

IF P = @ AND F THEN F = @: 
9: HTAB 1: PRINT " " 
9: YWTAB 10: HTAB 1: PRINT " 


VTAB 7: HTAB 19: 
9: WTAB 7: 


VTAB 


PRINT "  " 
HTAB 19: PRINT 


ON D GOTO 304853050 ,3060 
IF P Ni THEN 30190 

IF P Ni THEN GOSUB 
GOSUB 3G600:F = 1: 


3000: 
GOTO 30190 
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3600 


370@ 


3701 
3702 
3703 
3704 
3705 


3710 
4020 
4001 
Adaz 
4010 


GOSUB 3500:D = 2: GOTO 3010 


IF P Ni THEN GOSUB 3600: 
F = 1:D = 1: GOTO 30190 

IF P N2 THEN 3010 

IF P N2 THEN GOSUB 3500: 
GOSUB 3G600:F = 1: GOTO 3010 
GOSUB 3500:D = 3: GOTO 30190 
IF P N2 THEN GOSUB 3600: 
F = 3:D = 1: GOTO 3010 

IF P N3 THEN 30190 

IF P N3 THEN GOSUB 3500: 
GOSUB 3G@0:F = 1: GOTO 3010 
GOSUB 350@:WL = 1: RETURN 
VTAB 3 + Ds: HTAB 30: PRINT 
"€CLICK?": FOR I = 1 TO 102% 
x = PEEK ( - 16336): NEAT 
RETURN 

VTAB Gs: HTAB 3@: PRINT " 

"s VTAB 7: HTAB 38: PRINT 

" ": VTAB 8: HTAB 30: PRINT 
" ": RETURN 
PP = P - INT (P / 4) * 4: ON 


PP + 1 GOTO 3701 +3702 13703 +3 
704 

y 
UJ 
U 
UJ 


10:H 
11:H 
12:H 
li:H 


19: 
2@: 


19: 


GOTO 3705 
GOTO 3705 
GOTO 3705 
18: GOTO 37085 
VTAB V2: HTAB H2: PRINT " " 
3: VTAB Vs: HTAB H: PRINT “"#" 
;2WV2 = VeH2 = He: RETURN 
YVTAB 23: HTAB 1: PRINT PP: RETURN 


REM 


IF WL = 


*#** END 


1 THEN 404¢@ 


23) 


Ad1i5 


4020 


A030 


A040 


HOME : INVERSE : FOR I = 1 TO 
id: VTAB I: PRINT "xxx eH%% 
KHEEKHEEKEKKEKKKEKEKE KEKE KKRKKKKKEKES 
¥*¥*%" 5: YTAB 21 - I: PRINT "+ 
KHEEEKHEEEKKEKEKEKR EK KKEHHKEKRHEE 
KHEKKHKEEKHE" Ss NEXT It NORMAL 


VTAB 10: HTAB 10: PRINT " 
BQOOQOM ! > ": FOR 
I = 1 TO 10@:KA = PEEK ( - 
16336) + PEEK ( - 16336) - 

PEEK ( - 16336): NEXT 

VTAB 22: PRINT "THE COMBINA 
TION WAS =: "“sNi"-"N2"-"N3: RETURN 


VTAB 21: PRINT CHRS (7)5 CHRS 
(7)5 CHRS (7)5"THE PAPERS AR 

E YOURS !!!": PRINT "YOUR CO 
LLEAGUES WILL BE QUITE IMPRE 
SSED.": RETURN 


WH 
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ALLL Us 
jill fir a’ 


This is another two-player paddle game. Each player controls the up-and-down 
movements of a flying saucer. The object is to shoot your opponent's ship. The 
first player to do this three times is the winner. Line 3010 is responsible for, 
among other things, drawing the field of stars through which you must shoot. 
Lines 3520 and 3570 black out the prior position of each ship. To verify this, 
change COLOR= 0 to COLOR =1. Each time saucer #1 is moved, line 3605 
draws the saucer in the new position. Line 3705 does the same for saucer #2. 
Line 3872 blacks out the previous position of each bomb that you shoot. 
Change COLOR= 0 to COLOR=8. If you manage to shoot your opponent, 
line 3950 draws the magenta (COLOR = 1) squares, and makes the 
corresponding noises (PEEK ( - 16336)). 
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10 REM KEKE KEKKEKRHEKEKRERKEE 

11 REM **%* KE 

12 REM **#* SAUCER DUELS **+* 

i3 REM **# Xe % 

Ld REM HR KKEHKHEHRKKEH ES 

13) REM 

iG REM 

“@ GOSUB 1000: REM INSTS 

30 GOSUB 2000: REM SETUP 

40 GOSUB 3000: REM PLAY! 

540 GOSUB 4000: REM 'END! 

60 END 

1dda0 : 

1001 REM *** INSTS 

lgae s: 

1010 TEXT NORMAL HOME 

10°70 VTAB 3: HTAB 10: PRINT "x 

SAUCER DUELS ***#" 

1030 VTAB 7: PRINT "THIS IS A TW 
O-PLAYER GAME. EACH PLAYER 
CONTROLS A FLYING SAUCER BY 
USING THE PADDLES." 

1035 PRINT 

1040 PRINT "PADDLE @ IS FOR PLAY 
ER #1, AND IS ON THELEFT SID 
E OF THE SCREEN. PADDLE 1 I 
S FOR PLAYER #2, AND IS ON 

THE RIGHT SIDE OF THE SCREE 
N," 

1045 PRINT 

1050 PRINT "MOVE THE SAUCERS UP 
AND DOWN WITH THE PADDLE C 
ONTROL. TO SHOOT AT THE ENE 
MY SHIP, PRESS YOUR BUTTON. 

THE FIRST ONE TO SCORE THR 
EE HITS WINS THE GAME." 

1060 VTAB 23: INPUT "HIT RETURN 
WHEN READY TO CONTNUE "SAN 
S$ 

1990 RETURN 

200d : 

2001 REM **% SETUP 

£002 : 
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2010 
2020 


=99@ 
3000 
3001 
3802 
3005 


3010 


3020 


Pi = @:P2 = @ 
DEF FN R(X) = j.INT (¢ RND ( 
i) * X) 
RETURN 
REM **%* PLAY 
Fi = @:F2 = @:HI = @:L2 = - 
i:sL4 = - 1 
GR HOME FOR I = 1 TO 50 
sx = FN R(24) + BY = FN R 
(40): COLOR= FN R(14)s: PLOT 
c9¥s NEXT 
PRINT “PLAYER #1 
PLAYER 2"5: PRINT 
u "py" 
"Pp? 
GOSUB 3500: REM MOVE SHIPS 
GOSUB 3800: REM MOVE SHOTS 
IF HI = @ THEN 30830 
IF HI = 1 THEN Pl = Pl + 1s 
GOTO 308a@ 
IF HI = 2 THEN P2 = Pe + 1s 
GOTO 30890 
IF Pil ¢< 3 AND P2 < 3 THEN 3 
25 
RETURN 
Li = INT (¢ PDL (@) / G6.8)eL 
3 = INT ¢ PDL (1) / G.8) 
IF L2 = Lil THEN 3550 
IF L2 Li THEN COLOR= @: GOSUB 
360@:L2 = L2 + 1: COLOR= 15: 
GOSUB 3600: GOTO 355¢@ 
COLOR= @: GOSUB 3600:L2 = L 
2 - 1: COLOR= 15: GOSUB 3600 
GOTO 3550 
IF L4 = L3 THEN 3590 
IF L4 ¢< L3 THEN COLOR= @: GOSUB 
3700:L4 = L4 + 1: COLOR= 15: 
GOSUB 3700: GOTO 3590 
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3590 
3600 
3605 


3700 
3705 


3800 
3B@5 


3810 


3830 
38395 


3860 
3870 
3871 
3872 
3873 
3875 
3876 
3878 
3880 
3882 
3883 
3885 


3886 


le: 


LZ: 


COLOR= @: GOSUB 37@00:L4 = L 
4 - 1: COLOR= 15: GOSUB 3700 
GOTO 3590 
RETURN 
IF L2 
HLIN 
L2 + 1s 


®@ THEN RETURN 

£94 AT Le: HLIN @;2 AT 
HLIN 4+6 AT L2 + 1: 
1°53 AT L2 + 2: RETURN 

IF Ld < @ THEN RETURN 

HLIN 35+37 AT L4&: HLIN 33:23 
> AT L4 + 1: HLIN 37,39 ATL 
4+ 1: HLIN 34:38 AT L4 + ?2: 
RETURN 

IF Fl THEN 385390 

IF PEEK (¢ - 16287) 
3850 
Fi = 
12: 
IF 
IF 
3870 
F2 = 1:2 
12: PLOT X2:¥2 

FOR I = 1705 

IF NOT Fl THEN 3880 
COLOR= @: PLOT X1>;,Yil 
X1 = X1 + ls: IF Xl +} 39 THEN 
Fi = @: GOTO 3880 

IF SCRNC( X1,+/Y1) = @ THEN 
PLOT K1,/Yi: GOTO 3889 

IF SCRN( X1,Y¥1) < 15 THEN 
COLOR= @: PLOT X1,Y1: GOSUB 
3900:F1l = @: GOTO 388A 

GOSUB S3S9S5@:HI = 1: RETURN 

IF NOT Fe THEN 3899 

COLOR= @: PLOT X2;Y¥2 
cf - Le: IF X2 ¢< 
GOTO 3890 

SCRN( X2sY2) = @ THEN 
PLOT K2+¥2: GOTO 38990 
IF SCRN( X2+/Y¥2) < =} 15 THEN 
COLOR= @: PLOT K2;Y2: GOSUB 
3900@:F2 = @: GOTO 3890 


HLIN 


128 THEN 


PsAl = 7:¥1 = 
PLOT A1l+sV1 
F2 THEN 3870 
PEEK ( - 16286) 


COLOR= 


128 THEN 


(2 = 32:Y2 = 


Ld + 1: 


COLOR 


@ THEN 


COLOR 


240 


COLOR= 


3888 GOSUB 396@:HI = 2: RETURN 

3890 NEAT : RETURN 

3900 FOR J = 1 TO S:txXx = PEEK (¢ 
- 16336): NEXT : RETURN 

399@ COLOR= i: FOR I = 1 TO 12: PLOT 
sl - G + FN R(7)s¥1 - 1 + =FN 


R(S)skXxX = PEEK ( - 16336) - 
PEEK ( - 16336) + PEEK ( - 
16336) - PEEK ( - 16336): NEXT 


RETURN 
396@ COLOR= i: FOR I 1 TO 12: PLOT 
‘2 + FN RO7)*Y¥2 - 1 + FN R 


(3):AX = PEEK ( - 16336) - 
PEEK ( - 16336) + PEEK ( - 
16336) - PEEK (¢ - 16336): NEX 
RETURN 
A000 : 
4001 REM *** END 
4002 : 
4010 HOME : PRINT "THE GAME IS QO 
VER [bis 


4020 IF Pi = 3 THEN PRINT “PLAY 
ER NUMBER 1 IS THE WINNER !! 
| a8 

4021 IF P2 = 3 THEN PRINT "PLAY 
ER NUMBER 2 IS THE WINNER ! |! 


4990 RETURN 
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This whimsical name and the humorous object of the game serve to camoflage 
an excellent thinking-man’s game. It is hard to imagine how a person could 
play, and not come away with a better understanding of the X,Y coordinate 
system. The premise is that you are trying to splat a mudball on the mud- 
loving Schmoo. The elevation at which you aim the automatic mudball slinger 
determines how far the mudball will travel. The angle at which you shoot will 
be determined by the coordinates of the Schmoo. Following will be a list of 
coordinates and the angles they represent. 


X Y ANGLE 
12239 0 0 
17866 17866 45 
0 23910 90 

-0888 5888 135 

-9400 0 180 

-25727 -25727 225 
0 -18992 270 


31101 -31101 315 


We hope this chart will help you to understand how the various coordinates 
relate to the angles. 
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10 
11 
12 
13 
14 
1d 
16 
2@ 
30 
40 
~@ 
60 
1000 
1001 
1002 
1010 
1020 


1030 


1040 


1045 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
END 


REM 


TEA 


HKEHKKEKEKKKKKKEKKEKKKKEKE 


HE HHH 
HH % SCHMOO HH % 
KE HH 


KHEHKHKEHKKKEKREKHKKKEKE 


12900: REM INSTS 
2000: REM SETUP 
3000: REM PLAY! 
4000: REM !END! 


*¥*#% INSTS 


T +: HOME : NORMAL 


VTAB 1: HTAB 13: PRINT "x*+ 

SCHMOO *#*#*" 

VTAB 3S: PRINT "THIS IS THE 
GAME OF SCHMOO. j$IN IT YOU 
THROW MUD AROUND IN HOPES OF 

HITTING THEMUD-LOVING SCHMO 


0," 
PRI 
ATED 
COOR 
ON @ 
OCAT 
PLA 
GIY 
URN. 


NT =: PRINT "YOU ARE SITU 
IN THE CENTER OF AN X+¥ 
DINATE SYSTEMs AT POSITI 
22, THESCHMOO WILL BE L 
ED SOMEWHERE ON THE SAME 
NE. HIS COORDINATES ARE 
EN TO YOU BEFORE EACH T 


VTAB 23: INPUT “HIT RETURN 
WHEN READY TO CONTINUE =: "3A 


NS$ 


HOME : YTAB 1: HTAB 13: PRINT 
"#e* SCHMOO *#*##": YTAB 5S 


PRI 


NT =: PRINT "YOU HAVE YOU 


R TRUSTY AUTOMATIC MUDBALL 
SLINGER WHICH YOU USE TO TOS 
S MUDBALLS AT THE SCHMOO. 


YOu 
THE 


INPUT THE ELEVATION AND 
ANGLE AT WHICH YOU WISH 


TO FIRE" 
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1060 


1070 


1080 


1090 


1100 


1110 


1120 


199@ 
2000 
2001 
2002 
20190 


2020 


2030 
2035 


PRINT "THE MUDBALL. AFTER 
EACH SHOT YOU WILL BE GIVEN 

THE COORDINATES WHERE THE M 
UD LANDED. " 

PRINT =: PRINT "FOR EXAMPLE » 

IF THE SCHMO0’S COORDINATES 
ARE (-3+10) THEN THE SCHMOO 
IS ABOUT FIVE FEET TO YOU 
R LEFT AND ABOUT TEN FEET 

IN FRONT OF YOU." 

PRINT PRINT "THE ELEVATIO 
N FOR THE SHOT WOULD BE 
ABOUT 89.95 DEGREES WHILE TH 
E ANGLE WHERE THE SCHMOO 

CAN BE FOUND IS ABOUT 1190 
DEGREES," 


PRINT INPUT "HIT RETURN W 
HEN READY TO CONTINUE =: "SAN 
5 $ 

HOME : VTAB i: HTAB 13: 
"*#*% SCHMOO *#*#": YTAB 3 

PRINT "THE MUDBALLS ARE LAR 
GE ENOUGH TO MUDDY THE SCHM 
00 AS LONG AS THEY LAND WITH 
IN 10@ FEET OF HIM." 

PRINT =: PRINT : PRINT “NOW 


THAT YOU KNOW HOW TO MAKE TH 
E SCHMOOHAPPY, GO GET HIM. 


GOOD LUCK!" 

VTAB 23: INPUT "HIT RETURN 
WHEN READY TO CONTINUE =: "3A 
NS$ 

RETURN 

REM #*#*%* SETUP 
Si = INT ¢( RND (1) * 2) * 2 

- 1:52 = INT ¢€( RND (1) *# 2 
) * 2 - 1 
SX = ( INT (¢ RND (1) * 26000 
) + 5000) * SI:SY = ( INT ¢ 
(1) * 26000) + 35000) * §1 
BELLS = CHR (7) 

CNSTR = 3,1415926357989 / 18 
"4 
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PRINT 


2990 RETURN 

3000 : 

3001 REM **%* PLAY 

3802 : 

3005 HOME : YVTAB 3: HTAB 13: PRINT 
"#*#* SCHMOO ###": YWTAB 7 

3010 PRINT : PRINT BELL#$"THE SCH 


MOO IS AT COORDINATES : "s: PRINT 
nenoyu »yoywnyu 


3013 PRINT : PRINT “WHAT ELEVATI 
ON FOR THE": INPUT "MUDBALL 
SLINGER (@-9@0) =: "SEL 

3020 IF EL 90 OR EL 1 THEN PRINT 
"THE ELEYATION RANGES FROM 1 

TO 90...": GOTO 3015 

3025 IF EL = 90 THEN PRINT "THA 
T WOULD SHOOT THE MUD STRAIG 
HT UP...eAND IT WOULD COME D 
OWN ON TOP OF YOU! ": GOTO 3¢@ 
15 

303@ PRINT =: PRINT “WHAT ANGLE OQ 
F DIRECTION FOR THE": INPUT 
"MUDBALL SLINGER (@-360) : " 
sAN 

3035 IF AN = @ OR AN 36@ THEN 

PRINT "THE ANGLES RANGES FR 
OM @ TO 36@.": GOTO 3030 

3040 DM = ABS ( INT (33000 * SIN 

(EL * CN) * COS (EL * CN))) 


3@45 XM = DM * COS (AN * CN) :YM = 
DM * SIN (AN * CN) 
3050 DS = SOR ((SX - KM) 2+ ( 


SY - YM) 2) 

3055 PRINT =: PRINT "THE MUD SPLA 
TTERED AT COORDIATES :": PRINT 
"OC" INT (XM) "9" INT (YM) ")" 

3060 TRY = TRY + 1 

3065 IF DS < = 108 THEN PRINT 

PRINT BELLSBELL$"THAT‘’S GO 

OD ENOUGH TO": PRINT “SPLAT 
THE SCHMOO !!!": RETURN 

38070 GOTO 3010 

4000 : 
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A001 REM *%** END 

Ad@e : 

4010 PRINT : PRINT "YOU SPLATTED 
THE SCHMOO IN "TRY" TRIES." 


4020 INPUT "DO YOU WISH TO PLAY 
AGAIN?" sANS$ 
4030 IF LEFT (ANS#+1) = “¥" THEN 
RUN 
4035 PRINT =: PRINT "THANKS FOR 5 
PLATTING THE SCHMOO !!" 
4990 RETURN 


—— al} nate ) 
C3), 


(ES EAN a) 
Wa 
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True to its name, the object is to dodge the stars for as long as possible. Don’t 
try to intercept the stars. If you do, you lose! This program is run entirely in 
the TEXT mode. This is done to aid your understanding of the graphics by 
using text format commands in place of graphic commands. You may notice 
the absence of certain commands, such as: HLIN, PLOT COLOR, GR, and 
others. Line 3055 uses an HTAB and a VTAB and a PRINT statement instead 
of: PLOT (variable name) AT SX,SY. 


What do those POKES do in lines 2100 and 2110 do? If you add 2099 GOTO 
2990 to isolate these lines from the program you will be suprised. The program 
runs just the same! But does it? If you already ran the program the POKES put 
a machine language routine in memory that stays there even when you type 
RUN, NEW, or even PR#6. Turn the computer off and on. Load Stardodger 
(don’t run it). Type 2099 GOTO 2990 and run the program. Now you see that 
these lines created the sounds that accompanied the stars as they popped onto 
the screen. The sounds are CALL(ed) in line 3035. You can make your own 
music with this machine language routine and add sounds to your own 
programs. 


DEL(ete) all of the program except lines 2100 and 2110 
ADD: 

2120 X = PDL(O):¥ = PDL(1) 

2130 POKE @+X :POKE 15Y 


214@ CALL 768 
2150 GOTO 2120 
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You will have an instrument that plays background music for low budget 
science fiction movies. 


Another variation on that theme: 


2120 GET A$ 

2130 K = ASC (AS) 

2140 POKE @+A:POKE 1,50 
2150 CALL?768 

216@ GOTO 2120 


Turns the Apple keyboard into a piano; even the control keys and RETURN 
play music. 


10 REM HHEEKKHEHKKKHEKKHEKKHEKEN 


1i REM **%* H & % 
if REM **##* STARDODGER **+%# 
i3 REM **% HH 
14 REM EEK HKKHKEHHEKKEKRKEHRES 
iS REM 
i6 REM 


20 GOSUB 1000: REM INSTS 

30 GOSUB 2000: REM SETUP 

402 GOSUB 3000: REM PLAY! 

22 GOSUB 4000: REM !END! 

60 END 

1000 : 

i@@i REM *** INSTS 

1002 : 

1010 TEXT : NORMAL : HOME 

1020 YVTAB 3: HTAB 11: PRINT "“*#+* 
STARDODGER **##" 

1030 YVYTAB 3S: PRINT "IN THIS GAME 
» YOU WILL BE USING THE GAME 
PADDLE TO PILOT A SPACESHIP. 

THE OBJECTIS TO MANEUVER T 
HE SHIP THROUGH A FIELD OF §& 
TARS» AND TO SUCCESSFULLY RE 
ACH THE BOTTOM OF THE SCREEN 


al 
¢ 
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1035 


1040 


1043 
1045 


1990 
2000 
2001 
2002 
2-010 


2015 
2020 
2029 
£100 


£110 


2990 
3OAA 
3001 


PRINT PRINT "YOU MUST TRY 
TO AYOID COLLIDING WITH THE 
STARS. EACH COLLISION WITH 
THE STARS DRAINS POWER FRO 
M YOUR SHIP‘’S PROTECTIVESHIE 
LDS." 

PRINT PRINT "YOU HAVE FIY 


E ATTEMPTS TO REACH THE HOME 
BASE BEFORE YOUR SHIELDS GIV 
E OUT. AT THIS POINT:s THE 
NEXT COLLISION WILL FINDYOUR 
SHIP WITH NO POWER AND THE 
SHIP WILL BE DESTROYED 
BOOM! <" 

PRINT 

CALL - 958: PRINT 
YOU RATE YOURSELF 7": 
1=POOR 1@=GREAT. 

IF ANS 1 OR ANS 
NS INT (ANS) 


"HOW DO 
INPUT " 
“SANS: 

> 10 OR A 

THEN 1045 


+ ¢ ¢ 


RETURN 
REM #*#*%* SETUP 


DEF FN R(A) = 
1) * A) + 1 
NT = 5 
DUR (11 - ANS) * 3 
BES CHRS (7) 
POKE 768,173: 
7/7O0:1925 
7729208: 
4,198: 
240 
POKE 77758: 


INT ¢( RND ( 


POKE 769;48: 
POKE 771136: POKE 
POKE 773194: POKE 77 
POKE 7751: POKE 776» 


POKE 778 s202: 
779+208: POKE 780;246: POKE 
781+16G: POKE 782,;0@: POKE 78 
3,76: POKE 784;:0: POKE 785:3 
POKE 786;96 
RETURN 


REM #*%*%* PLAY 
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POKE 


POKE 


3002 


3010 


3@iz2 


3014 
3@15 


3017 
3020 


3OL9 


3035 


3040 


3045 
3046 
347 
3048 
3050 
3051 
3839 
3060 
3065 
3070 
3100 


3110 


HOME : VTAB 10: IF NT > 1 THEN 
PRINT NT" ATTEMPTS REMAIN ! 
II": GOTO 3014 

PRINT "1 ATTEMPT REMAINS !! 
{ju 

FOR I = 
SX = 


1 TO 1000: NEXT I 
FN R(38):5¥Y = 1: HOME 


M2 = SX:¥2 = 
VTAB SY: 
"§:SX = 
FOR I = 


=e 
HTAB Sk: 
AesoY = Y¥2 
1 TO ANS / 3: VTAB 
“4: HTAB FN R( 40): PRINT 
C"#+8#K" » FN ROG) o1) 5: 
VTAB 24: HTAB 4@: 
POKE @+ FN R(S@) 
1»DUR: CALL 768 
IF SCRNC SA - 
> @ OR SCRNC SX»SY * 2) 
@ OR SCRNC SA + 19SY * 
) > @ THEN 3100 
PDL (@) 2=@ THEN 
SA - £2: GOTO 3050 
PDL (@) J@ THEN 
1: GOTO 305¢ 
PDL (@) 165 THEN 
SX + 1: GOTO 3050 
PDL (@) + 235 THEN 
GOTO 305¢@ 
1 THEN xK2 = 1 
IF > 38 THEN X2 = 38 
VTAB S¥: HTAB SX: PRINT "<# 
r"ae3eY¥2 = SY 
CNT = CNT + 1: 
CNT = @:¥2 = 
2@ THEN 3200 
FOR I = 1 TO S@: 
GOTO 3020 
OK SA - 28 
SH 1 
SY SY - 2: 
oY 1 


PRINT " 


MIDS 
NEXT I 
PRINT 
+ 200: POKE 


1sSY¥ * 2) 


PJ 


i 
va 


19> 
er 


VO = 
Ac = 


17> 
va 


IF CNT = 
Ye + 1: IF 


8 THEN 
Y2 = 
NEXT 

IF SX 1 THEN 


IF SY 1 THEN 
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3120 FOR I = 1 TO 3S: FOR J = SY TO 
SY + 4: HTAB X2 + I - 1: VTAB 
J 

3130 PRINT MIDS hr ar ar re Oe ee dd 
—-tHtttKXKXK" (CT - 1) *# 3 + 
195)5: NEXT J: PRINT BESs: NEAT 
I 

3160 NT = NT - i: IF NT @ THEN 
3010 

3200 RETURN 

AdOa : 

4001 REM *** END 

Adages: 

40102 YTAB 21: HTAB i: CALL - 95 
8: VTAB 22 

4020 IF NT = @ THEN PRINT BESBE 
$BES"I’M SORRY:+ BUT YOU LOST 

eee ''t RETURN 

4030 PRINT BESBE$BE$"YOU WON !!! 

CONGRATULATIONS !!!": RETURN 


4990 RETURN 
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Grab a friend and get ready for some heated competition. The object of this 
game is to wall-in your opponent and to prevent him from moving. On each 
turn, you enter the coordinates of the adjacent square you would like to move 
into, plus, you enter the coordinates of a square you wish to become 
uninhabitable. The first player unable to move loses the game. Line 2030 
switches the mode to GRaphics. Next, the color is set to a yellowish-green 
(COLOR= 12). Line 2031 draws a Horizontal LINe starting at position zero 
and continuing to position thirty-two. The result is a solid yellowish-green 
block, 32 by 32. Line 2033 sets the color to 15 (white), and then begins a loop 
(consisting of nine passes). Line 2034 draws a white Horizontal LINe on top of 
every fourth green line. This line also instructs the computer to draw a Vertical 
LINe at each value of “I”. The result is an 8 by 8 matrix, comprised of 64 green 
squares, each with a white border. Lines 2040 and 2041 (and 5001) draw the 
magenta (COLOR= 1) and the light green (COLOR= 14) squares which mark 
each player’s beginning position. To verify this, type: 2041 STOP (then return). 
Now when you run the program, it will STOP at line 2041. Only the square 
drawn by line 2040 be displayed. To undo any change, type: LOAD 
STRANDED. When this is done, a copy of the old, unaltered program is 
moved from permanent storage on diskette into the computer’s memory, 
where it can be modified and/or run. 
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10 REM HEHKKKEEKHKEKKHEKKEKEKKEX 


11 REM **#+%* KH 
iz REM **%# STRANDED HH 
13 REM *#+% HH 
{4 REM KEEKHEHKHHHHEKRHKEKHKEEE 
iS REM 
i6 REM 


“0 GOSUB 1000: REM INSTS 

30 GOSUB 2000: REM SETUP 

40 GOSUB 3000: REM PLAY! 

22 GOSUB 4000: REM '!END! 

G@ END 

1d0a0 : 

1001 REM **%* INSTS 

1da@2 : 

1010 TEXT : NORMAL : HOME 

1820 VTAB 3: HTAB 12: PRINT "*x* 
STRANDED ***" 

1930 VTAB 7: PRINT "THIS IS A GA 
ME FOR TWO PLAYERS. BOTH OF 
YOU WILL BE PLACED IN AN 88 

MATRIX. A PLAYER MAY MOY 

E IN ANY OF THE EIGHT DIRE 
CTIONS. ENTER THE COORDINAT 
ES OF THE TARGET SQUARE, " 


1035 PRINT 

1040 PRINT “AFTER YOU MOVE, YOU 
WILL BE ASKED FOR THE COOR 
DINATES OF A SECOND SQUARE. 
THISSQUARE WILL THEN BE BLAC 
KED OUT+ AND BE UNENTERABLE. 

S040 IF SOR ((CK1 - X) 2) + ( 
(¥Y1 - YY) * 2)) 2 = 2 THEN PRINT 
CHRS (7): GOTO 3020 

3050 IF MCA1L,sY¥Y1) < = @ THEN PRINT 
CHRS (7): GOTO 3020 

3060 M(xA+Y) = @:CO = 12: GOSUB 30 
0d 

3070 M(X1+Y1) = PL:CQ = FN PCPL) 
sP(PL»PL) = X1:P(PL+PL + 1) = 
Yierx = K1i:¥ = Yi: GOSUB 3000 
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3100 


INPUT "BLOCK AT =: "SX2eY2: IF 
‘2% 1 OR X2 > 8B OR Y2 < 1 OR 

Y2 > 8 OR X2 <¢ »* INT (Ke) OR 

Ye < 2 INT (Y¥2) THEN 3100 
IF M(X2sY2) < %* @ THEN 3190 

"4 

MCAS sY¥2) = 


= Ye: 


3:CO = A2ey 
GOSUB 5000 
K = 3 - PL: FOR J = 1 TO 884A 
4 = DIR(Js1) + P(K eK) :Y4 = D 
IR(J»2) + P(K+sK + 1) 

IF X4 < 1 OR X4 > 8 OR Y4 < 
1 OR ¥Y4 = 8 THEN 3250 

IF M(xX4ds¥4) > @ THEN 325 
"4 
J = 8s NEAT Js 
NEXT J: RETURN 
NEXT 

GOTO 3010 


@:xX = 


GOTO 3990 


REM #*# END 
HOME : PRINT 
VERe eee e 8 
BER "PL" 
RETURN 

REM *** DRAW A SQUARE 
COLOR= CO: FOR IT = FN C(x) 
TO FN C(X) + 2: HLIN FNC 
(Y)>» FN CCY) + 2 AT Is NEXT 
: RETURN 


"THE GAME IS 0 
PRINT "PLAYER NUM 
IS THE WINNER !" 
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This game requires good timing. A small, moving target is the object of your 
marksman talent. The angle of each shot depends on the angle of the pad. 
Unlike most of the games where the game board is drawn in the the ‘2000’ 
subroutine, here, all of the GRaphics are drawn in the ‘3000’ subroutine. 
Looking at the graphics, line 3010 draws a light blue (COLOR= 7) perimeter 
around the target area. This can be verified by typing: 3012 STOP. Now when 
you run the program, the execution will STOP immediately following the 
completion of 3010. All that will be on the screen is the blue outline. Line 3030 
draws the launching pad in a symmetrical configuration, but ata RaNDom 
location and utilizing a RaNDom five-dot design. Again, to confirm the 
function of line 3030, type: 3029 STOP and 3031 STOP When the program 
encounters a STOP command, you can CONTinue the execution (the run) by 
typing CONT. Line 3040 draws the pink (COLOR= 11) target at its original 
position and each time it moves down the screen. Also, note that before the 
color equals eleven, the color is set to zero (black). To understand the function 
of the first part of line 3030, change COLOR= 0 to COLOR = 1. The function 
of line 3075 is similar to that of line 3030. Experiment with this group of 
instructions to see if you can discover 3075's purpose. 


259 


1040 


REM HREEHEKKKKEKHKEKKHEKKEKEKE 


REM x**+% H & % 
REM x*** TARGET HX 
REM %x*#% He 
REM KHHEHEHKKKKHKEKEKRKEHEE 
REM 
REM 
GOSUB 1000: REM INSTS 
GOSUB 3000: REM PLAY! 
END 
REM **%* INSTS 
TEXT : NORMAL HOME 
VTAB 3: HTAB 13: PRINT "xx 
TARGET *#*#" 
VTAB 7: PRINT "IN THIS GAME 
YOU TRY TO HIT A MOVING 
TARGET. BY PRESSING ANY KEY 
» A SMALL BALL WILL BE FIR 
ED FROM THE PADDLE ON THE 
SCREEN, " 
PRINT PRINT "YOU MUST TIM 


E THE RELEASE SUCH THAT THE 
SMALL BALL HITS THE LARGER OQ 
NE. THE DIRECTION AND DI 

STANCE WILL VARY WITH EACH 
NEW TARGET." 


VTAB 23: INPUT "HIT RETURN 
WHEN READY TO CONTINUE =: "3A 
NS$ 

RETURN 

REM *##% PLAY 

GR : HOME : COLOR= 7: HLIN 
0°39 AT @: HLIN 0:39 AT 39: VLIN 
0+39 AT @: VLIN @:39 AT 39 

HOME : VTAB 22: HTAB 1@: PRINT 
"SCOREs "s5C5" SHOTS: "355 
H 

IF SH THEN YVTAB 23: HTAB 1 
4G: PRINT “PCENT: "s INT (SC / 
SH * 100)5"%" 
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3029 PM INT ( RND (1) * 2) *# 2 


- 1:XP = INT ¢ RND (1) * 1 
2) + 10:YP = INT ¢ RND (1) * 
10) + 15:SP = INT ¢ RND (1) 


* 3) * PM:FLAG = @ 

303@ COLOR= 9: PLOT XP + (2 * SP 
)esYP - 2: PLOT XP + SPoV¥P - 
1: PLOT XP+*YP: PLOT XP - SPs 
YP + i: PLOT XP - (2 * SP) o¥ 
P +2 

3035 X2 = INT ¢( RND (1) * 10) + 
2o9Y2 = 1:52 = INT (¢ RND (1 
) * 2) + 12X39 = X28Y3 = Ye 

3040 COLOR= @: FOR I = X3 - 1 TO 
AO + ds YLIN Y3:Y3 + 2 AT IT: 
NEXT : COLOR= 11: FOR I = & 

- 1 TO K2 + 1s: VLIN Yee¥2 + 

: I: NEXT 

3045 43 = K2:Y3 = Ye: IF FL THEN 


3050 IF PEEK ( - 16384) 127 THEN 
3600 

3@55 POKE - 16368;0:FL = 1:Bl = 
XP + 1:B2 = YP:B3 = B1:B4 = 
B2:SH = SH + 1 

3060 HOME : VTAB 22: HTAB 10: PRINT 
"SCORE: "3s5C5" SHOTS: "35 
H 

3065 VTAB 23: HTAB 14: PRINT "PC 
ENT: "s INT (SC / SH * 100)5 
"hs: IF Bl > B3 AND SCRN( 
B3;B4) < 2? 15 THEN 3095 

3070 IF SCRN( B3,B4) = 11 THEN 
3095 

3075 COLOR= @: PLOT B3,B4: COLOR= 
iS: PLOT B1,B2:B3 = B1:Bd = 
B2:B1 = Bil + 1:B2 = B2 + SP 

3080 IF B2 < 1 OR Be = 38 THEN B 
2 = B4:SP = - SP: GOTO 3600 


3085 IF Bil + 3G THEN COLOR= @: PLOT 


B3,;B4:FLAG = @:SP = ABS (SP 
) * PM: GOTO 3600 
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3890 


3895 
3600 


3610 
3990 


IF SCRN( Bi+B2) = @ THEN 3 
600 


SC = SC + i: GOTO 3010 

Y2 = Y2 + 1: IF YZ 36 THEN 
Y2 = 1 

GOTO 3040 

RETURN 
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In this game the object is to avoid the relentless pursuit of the horrible Twinky, 


and to escape from the danger-filled labyrinth. There are a plethora of 
obstacles which impede your escape. There are twenty squares which relocate 


you somewhere in the maze. There are twenty squares which cannot be 
entered. There is one square which contains an extremely sensitive exploding 
device. If you move onto this space, the ensuing blast will end your perilous 


journey .. . and your life. 
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10 
11 
12 
13 
id 
13 
16 
20 
3@ 
40 
68 


1000 
1001 
1002 
1010 
1020 


1030 


1040 


1960 


1070 


REM HHEHEHKEKHHKEHRKHKKKRKEKHHKE 


REM **% HHH 
REM %**% TWINK Y H & % 
REM **% % & % 
REM KEE KHKHEKKEKRERKHKKHEE 
REM 
REM 


GOSUB 1000: REM INSTS 
GOSUB 2000: REM SETUP 
GOSUB 3000: REM PLAY! 
END 


REM *#%* INSTS 

TEXT : HOME : NORMAL 

VTAB 2: HTAB 13: PRINT "xx 

TWINKY *#*##" 

VTAB Ss: PRINT "THIS IS THE 
GAME OF TWINKY,. IN IT YOU 
PRETEND TO BE A SPACE EXPLOR 
ER WHO HAS LANDED ON A HOST 
ILE PLANET. " 

PRINT : PRINT "CAPTURED BY 
THE UNFRIENDLY NATIVES» YOU 
ARE TOSSED INTO A LARGE PRIS 
ON ALONG WITH A FEROCIOUS 

TWINKY, " 

PRINT : PRINT "A TWINKY IS 
A HORRIBLE CREATURE THAT 
WILL CATCH YOU AND ABSORB YO 
UR BODY INTOHIS IF HE GETS C 
LOSER THAN TWO UNITS AWAY 

FROM YOU," 

VTAB 23: INPUT “HIT RETURN 
WHEN READY TO CONTINUE :"5AN 
S$ 

HOME : VTAB 2: HTAB 13: PRINT 
"**ee TWINKY *###": YTAB S 


19080 PRINT "IN THE INTEREST OF F 


AIR PLAY» YOU ARE GIVEN A 
ZAP GUN THAT WILL TEMPORARIL 
Y CHASE THE TWINKY AWAY." 
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2002 
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2015 


PRINT =: PRINT "ALSO» IF YOU 
CAN MAKE IT TO THE SPECIAL 
OBJECTIVE SQUARE BEFORE BEIN 
G ABSORBED,s YOU WILL BE SET 
FREE," 
PRINT PRINT "AFTER YOU MO 
VE» YOU WILL BE INFORMED OF 
YOUR DISTANCE FROM THE OBJEC 
TIVE SQUARE AS WELL AS FROM 

THE TWINKY. " 


VTAB 23: INPUT "HIT RETURN 
WHEN READY TO CONTINUE :"35AN 
5 $ 

HOME VTAB 2: HTAB 13: 
"eee TWINKY *###": YTAB 3S 

PRINT "THERE ARE SEVERAL OT 
HER OBJECTS WITHIN THE MAZE 

WHICH ARE OF INTEREST." 

PRINT PRINT "THERE ARE TW 
ENTY RELOCATION SQUARES. 


THESE SQUARES SEND YOU TO 50 
ME OTHER SECTION OF THE M 
ee, " 

PRINT =: PRINT "THERE ARE TW 
ENTY IMPREGNABLE SQUARES 
WHICH YOU CANNOT ENTER." 

PRINT PRINT "THERE IS ONE 

SUPER DEADLY AUTOMATIC KILL 
SQUARE WHICH ENDS YOUR ORDEA 


L QUICKLY AND PAINLESSLY." 
PRINT PRINT PRINT "THAT 
‘S ITee-e TRY TO ENJOY IT !" 
VTAB 23: INPUT "HIT RETURN 
WHEN READY TO CONTINUE :"5AN 
5 $ 

RETURN 

REM #*%** SETUP 

DIM MA(15+195) 

DEF FN R(X) = INT (¢( RND ¢ 
1) * X) + 1: DEF FN ACA) = 
-O01 * INT (XK * 1000 + 45) 
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PRINT 


FOR I = 1 TO 290 
X = FN R(15):Y = 
IF MACK +) 


FN R(15)5 
THEN 2025 


MACK+Y¥) = 1: NEXT I: REM <** 
* BLOCKED 
FOR I = 1 TO 2@ 


XK = FN R(135):Y = 
IF MACK +¥) 
MACXs¥) = 23 
* RELOCATION 
X = FN R(15):Y = 
IF MACK +¥) 


FN R(15):5 
THEN 2045 


NEAT Is: 


REM ** 


FN R(15): 
THEN 2065 


MACK sY¥) = 3: REM *#* SUPER 
KILL 
XO = FN R(15):YO = FN R(15 
Ys IF MACKO+YO) THEN 2075 
MACXO+sY¥O) = 4: REM #*** QBJE 
CTIVE 
KT = FN RCO15):YT = FN R(15 
Ys IF MACATs+¥T) THEN 2085 
MACKT+Y¥YT) = 3: REM **%* TWIN 
KY 
XP = FN R(15):YP = FN R15 
ds: IF MACKP+s¥P) THEN 2095 
MACAPsYP) = G: REM *%*# PLAY 
ER 
ST = @:5P = @ 

RETURN 

REM *%*%* PLAY 

HOME : VTAB 3: HTAB 13: 
"Hee TWINKY *###": PRINT 

s PRINT 
DT = FN AC SOR (CXT - XP) 
= + (YT - YP) z)) 
DO = FN AC SOR (CXP - AQ) 
- + (YP - YQ) 2)) 

PRINT : PRINT "THE TWINKY I 
S "DT" UNITS AWAY" 

PRINT =: PRINT "THE OBJECTIYV 
E IS "DO" UNITS AWAY" 


266 


PRINT 
PRINT 


3028 $1F DT 2 THEN : PRINT : PRINT 
needs G CHL OFOR P ! ! ! 
eee": PRINT "YOU’VYE BEEN 
ABSORBED BY THE TWINKY !!1": 
PRINT "YOU LOSE.":WLE = 1: GOSUB 
3600: RETURN 
3030 PRINT : INPUT "MOVE OR SHOO 


T (M/S) : "“sANSS 
3035 ANS$ = LEFTS (ANS#$+1): IF A 
NS$ "M" AND ANS$ » " 


S" THEN PRINT "TYPE IN ‘M’ 
OR ‘S’": GOTO 3830 
3040 IF ANS#$ = "S" THEN 3309 
3100 PRINT =: PRINT "FORWARD, BAC 
KWARD+s"s INPUT "RIGHT OR LEF 
T (F/B/R/L) : "SANSS 


3105 ANS$ = LEFT# (ANS$+1): IF A 
NS "F" AND ANS$ " 
B" AND ANS > "R" AND ANS 
$ "L" THEN PRINT "TYPE 


IN ‘F’ OR ‘B’ OR ‘R‘ OR ‘L’ 
": GOTO 3100 


3110 IF ANS = "F" THEN A = @:Y = 
- 1: GOTO 31290 
3iii1 IF ANS$ = "B" THEN XK = @:Y = 
1: GOTO 31290 
3112 IF ANSS = "R" THEN XK = 1:Y = 
@: GOTO 3120 
3113 IF ANS# = "L" THEN KX = - 1 


<Y¥ = @: GOTO 3120 
3120 X = K + XP:Y = ¥Y + YP 
3125 IF Xk 1 OR X i535 OR Y l 
OR Y 15 THEN PRINT "THAT 
WOULD TAKE YOU OUT OF THE M 
AZE":s PRINT "MOVE NOT ALLOWE 
D": GOTO 350@ 

3130 IF MACK+Y) = 1 THEN PRINT 
"THAT SPACE IS BLOCKED": PRINT 
"MOVE NOT ALLOWED": GOTO 350 
d 

3135 IF MACK+Y) = 2 THEN 3200 
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3140 


3145 


3305 


3310 


3311 


3312 


3313 


IF MACK +¥) = 3 THEN PRINT 
"YOU FOUND THE SUPER KILL SQ 


UARE!!!": PRINT "MOVE ALLOWE 
D BUT+": PRINT "YOU’VE BEEN 
KILLED! !!":Wl = 1: RETURN 


IF MACK s¥) = 4 THEN PRINT 
"YOU FOUND THE OBJECTIVE !!! 
"s PRINT “MOVE ALLOWED AND;" 

>: PRINT "YOU WIN A TRIP OFF 
THIS PLANET !!!":sWeL = @: RETURN 


IF MACKX+¥Y) = 3S THEN PRINT 
"MOVE ALLOWED": PRINT =: PRINT 
PRINT "<<< & C HLOOR 


Po!o! t >>>>>"s PRINT "YOU 
VE BEEN ABSORBED BY THE TWIN 
KY !!!": PRINT "YOU LOSE.":h 


L = 1: GOSUB 3600: RETURN 
PRINT "MOVE ALLOWED" :MAC(XP, 

YP) = SPs:XP = X:YP = Y¥s:SP = 

MACAP sYP)SMACAPs»YP) = Gs: GOTO 

3900 
PRINT ".eeee YOU'VE BEEN RE 

LOCATED «eree” 

A = FN R(IS)8Y = FN R15) 
IF MACK+¥) = 1 THEN 3205 
GOTO 3135 
PRINT =: PRINT “FORWARD, BAC 

KWARDs"s INPUT "RIGHT OR LEF 

T (F/B/R/L) : “SANSS 

ANSS = LEFTS (ANS$+1): IF A 

NSS < 3° "F" AND ANS$ ¢ > " 

B" AND ANS$ < * "R" AND ANS 

$< > "L" THEN PRINT "TYPE 
IN ‘F’ OR ‘B’ OR ‘’R’ OR ’L’ 

"s GOTO 3300 


IF ANSS$ = "F" THEN X = O:Y = 

- 1: GOTO 3320 

IF ANSS = "B" THEN X = @:Y = 
1: GOTO 3320 

IF ANSS = "R" THEN X = 1:Y = 
@: GOTO 3320 

IF ANS = "“L" THEN X = - 1 


©:¥ = @: GOTO 3320 
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3320 
33L9 


3330 


3335 


3345 


YP 


SX = XP:SY = 
= + X:SY = 


SX = SX 
"ZAP--"3 
IF SX < 


SY + Ys: PRINT 
1 OR SX 
1 OR SY 15 THEN 
eeLE.+."s PRINT "THE SHOT LE 
FT THE MAZE.": PRINT “THE SH 
OT MISSED THE TWINKY!": GOTO 
3908 
IF MACSX+»SY) = @ OR 
Y) = 2 OR MACSX>+SY) = 
ACSAsSY) = 4 THEN 3325 
IF MAC(SX+SY) = 1 THEN 
"BLAST !!": PRINT 
HIT A WALL": PRINT 
MISSED": GOTO 3500 
PRINT "QUCH !!!"s PRINT 
E SHOT HIT THE TWINKY": 
"THE TWINKY RETREATES" 
MACSAsSY) = STtXT = FN RIS 
,s¥T = FN R(V15):2ST = MACKT» 
YT) SMACKTs+Y¥T) = S: GOTO 3500 


15 OR SY 
PRINT “FI 


MACSA +S 
3 OR M 


PRINT 
"THE SHOT 
"THE SHOT 


"TH 
PRINT 


REM **%* TWINKY MOVE LOGIC 
DT = FN AC SOR (CXT - KP) * 
= + (YT YP) 2)) 

DO = FN AC SOR (C(XP - AD) 
= + (YP - YO) * 2)) 

PRINT = PRINT "THE TWINKY I 
5S "DT" UNITS AWAY," 

PRINT "THE OBJECTIVE IS "DO 


" UNITS AWAY," 


PRINT PRINT "THE TWINKY M 
OVES «4+"s FOR I = 1 TO 35@0: 
NEAT I 

IF DT = THEN PRINT PRINT 
ree" 5 C HL OOR P ! ! ! 

rpeoee"s PRINT "YOU'VE BEEN 
ABSORBED BY THE TWINKY !!!": 
PRINT "YOU LOSE.":WL = 1: GOSUB 
3600: RETURN 

IF XP < AT THEN X = - 1:Y¥ = 


0: GOTO 3540 
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3931 IF xP AT THEN X 
GOTO 3540 
3932 mF YP YT THEN KX = @:Y¥ = - 
i: GOTO 35490 
3933 jIF YP YT THEN K = @:Y = 1 
GOTO 3540 
3340 MACAT+VYT) = STtarxT = KT + Key 
T= ¥T + ¥:ST = MACKT+YT):MA 
(XT+¥T) = 3: GOTO 3020 
3600 FOR I = 1 TO 4@:xx = PEEK 
( - 16336) + PEEK ( - 16336 
) + PEEK ( - 16336): FOR J = 
1 TO S: NEXT JsI: RETURN 
3990 RETURN 


il 
ja=t 
as 
=< 

ul 
S 
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